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10-28 Updated SEARCH DIRECTORY STATEMENT: | 


“THE INFORMATION CONTAINED IN THIS DOCUMENT IS CONFIDENTIAL AND PROPRIETARY TO BURROUGHS 
CORPORATION AND IS NOT TO BE DISCLOSED TO ANYONE OUTSIDE OF BURROUGHS CORPORATION WITHOUT 
THE PRIOR WRITTEN RELEASE FROM THE PATENT DIVISION OF BURROUGHS CORPORATION’ — Price 6 


fo & 


iis ne ai nat, mala cbt Sas aati it Sicha idl bia ace te ddaonain £8 iittala is 


Burroughs Corporation <) B1800/B1700 SDL (BNF Version) 1 S405 


COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


PRODUCT SPECIFICATION 


Changes for the Mark VIII.O Release (cont) 
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10-31 Updated table: 
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Changed CHARGE NUMBER CHARACTER from 6 to 7 


10- 45 Updated MESSAGE | COUNT | 
Deleted ¢ FILE IDENTIFIER) CQ EXPRESSION] © 
Added C£SwITCH FILE IDENTIFIER > 

Changes for the Mark 10.0 Release 


5-6 Added "<LEVEL NUMBER> <STRUCTURE ELEMENT>"' to 
<STRUCTURE ELEMENTS=. 


5-20 Added "<HOST _NAME PART>" to <FLILE ATTRIBUTE> list. 
5-33 Added "HOST _NAME PART>" ATTRIBUTE. 


8-16 Added "<BINARY _SEARCH DESIGNATOR>", 
"<DATA _ LENGTH DESIGNATOR>", "DATA TYPE DESIGNATOR>" | 
“"S<LAST ~ LIO STATUS DESIGNATOR>", & "<TIMER DESIGNATOR=" 
to ''VALUE GENERATING FUNCTIONS" list. 


8-18 | Added "BINARY SEARCH" description. 

8-22 Added "DATA LENGTH" & "DATA TYPE" descriptions. 
8-28 Added "LAST LIO STATUS" description. 

8-39 Added "TIMER" description. 


9-2 Added " <ON BEHALF OF MODE>" to "<OPEN ATTRIBUTE>."" 
Added "<ON BEHALF OF MODE>"' to OPEN STATEMENT. 


9-6 Added "<READ PART> <RESULT MASK>; <ON SEQUENCE>" 
to "<READ STATEMENT>,"' 
Added "<RESULT MASK> ::= WITH RESULT MASK <ADDRESS 
GENERATOR>"" tc the READ STATEMENT. 


9-7 Added "if the <RESULT MASK>..." paragraph. 
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9-8 Added "<WRITE PART> <RESULT MASK>: ‘asamaiees 
Lo the WRLTE STATEMENT. 


9-9" Added " <KESULT MASK> :::: WITH RESULT MASK 
<ADDRESS GENERATOR>" to the WRITE STATEMENT. 


9-10 Added "If the <RESULT MASK>..." paragraph. 


10-15 Added "<DYNAMIC HOST NAME PART>" and 
"<DYNAMIC OPEN ON _ BEHALF OF PART?" +o 
 <DYNAMIC FILE ATTRIBUTE> List 


10-25 Added "<DYNAMIC HOST NAME PART>" aaa 
"<DYNAMIC OPEN ON BEHALF OF>" descviptions. 


16-36 Added "<REFE® ADDRESS DESIGNATOR>", | | if 
"<REFER LENGTH DESIGNATOR>"! and 
"<REFER TYPE DESIGNATOR>" «2s FUNCTION DESIGNATORS . 


10-47 Added "REFEK ADDRESS" description. | 
10-48 Added "REFER LENGTH" and "REFER TYPE" descriptions. 
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BACKUS NAUR EQRM 


A language used to talk about a Language is a metalangquage. The 
natural languages are» in fact» metalanguagess for examples the 
metalanguage Engtish is used to talk about the structure of an 
English language sentence. Backus Naur Form CS8NF)» a 
metalanguage popularized by its use to describe the syntax of 
Algol 60 1s used to describe the syntax of SOL. To avoid the 
confusion between the symbols of the metalanguage and those of 
the tanguage betng described» BNF uses only 4 metalinguistic 
symbols. Literat occurrences of symbols other than the the 
metasymbolss» with no bracketing characters» represent theaselves 
as terminal symbots of the language. 


A grammar for SOL 1s written as a set of SNF statements» each of 
which has a left part» followed by the metasymbol "::=" followed 
by a list of rignt parts. The Left part ts a phrase names and 
the rignt parts» separated by the metasymbdol “"1"» are strings 
containing terminal symbots and/or phrase namese 


METASYMBOL ENGLISH EQUIVALENT USE 


1s defined as separates a phrase name from 
Its definition. 


ee 
as 
i 


of a ohrasee 
<IDENTIFIER> "“IODENTIFIER™ 


acters are to be treated as a 
UN1ite ieG@er AS a phrase name. 


Each 3NF statement 1s a rewriting rules such that we may 
substitute any right part for any occurrence of its associated 
left part» and we have a choice of right parts which we may 
substitute. The following e2xamotle specifies the usa of these 
rules to determine those strings which are grammatically correct 
identifiers in SOL. . 


<LETTER> 33: 


ue 
a 
oe 
eben 
es 
aA 
an 
ee 
ee 
a 
wei 
a 


separates aiternate definition 


The bracketing characters india 
cate that the intervening char- 


Au th atunstbalen SA as cesar NEON, Hla ad th Aik ed ore i ASUS dca Sl a ts aL 5 becuse pices aac Sites ci ai fi aac rae aati Be 
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<OIGIT> ::= Ootit2at3i41516i17 18 t 9 


<BREAK> ss= = 
<IDENTIFIER> 3:2 <LETTER> 
1 <LDENTIFIER> <LETTER> 
1 <IDENTIFIER> <DIGIT> 
| <IODENTIFIER> <3REAK> 


XY¥Z12_B4 is a proper SOL <IDENTIFIER> since it can be generated 
as a terminating set of symbols by using the ONF rules. 


Proof that XY¥Z12_84 is an <IDENTIFIER> by starting with the fact 
that an <ICENTIFIER> can be a <LETTER>. 


FORM EXAMPLE 
<IDENTIFIER> 22= <LETTER> x 
<IDENTIFIER> 2:= <IDENTIFIER><LETTER> XY 
<IDENTIFIER> s3= <IDENTIFIER><LETTER> XYZ 
<IDENTIFIER> 2:= <IDENTIFIER><OIGIT> | XYZ1 
<IDENTIFIER> 22= <IDENTIFIER><DIGIT> XYZ12 
<IDENTIFIER> 22= <IDENTIFIER><BREAK> XY712_ 
<IDENTIFIER> s2= <IDENTIFIER><LETTER>  XYZ1i2_B 
<IDENTIFIER> s3= <IDENTIFIER><DIGIT> XYZ12_B4 


Notice that the @NF rules do nots in any ways Limit the number of 
letters» digits» and dots which comorise the <IDENTIFIER>. In 
such cases» further serantic rules will ba specified», @eder» an 
SOL <IDENTIFIER> is Limited to a maximum of 63 characterse 


NAHE | NUMBER 
SDL/UPL COMPILER PeSe 2212 5389% 
Bi700 SDL S*LANGUAGE PeSe 2201 2389 
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BASIC COMPONENTS OF IHE SDL LANGUAGE 


In order’ to understand SDL grammar» the user should be famitiar. 
with the ‘most basic elements of the Software Developmental 


Language below. 


<DIGIT> s3:= o 111i i'314%15 161 721 8 1 9 
<LETTER> s3= AlBictobleéet*Fiigtijevw i! ft Jj 
1k €— Lt M £EN § Ot Pt @t! Ri § i T 
\ iuUdtviwi Xt Y¥izZtioatbictd 
| ietfiegihtwizt! gj t{ k f€ t tmitooa 
iototqgt=ri sti t tulv twodlex 
lt y { 2 
<SPECIAL CHARACTER> is & i. f ir t+ » 1 4 | ss I 
1 S$ | = | > | >= § = | & JY & | 
1C€ 1) | = § <= = C £ J 1 <B8LANK 
<BRE AK> 325 | a | 7 7 la 
<BLANK> 32 | NY 
NOTE: <BLANK> ts th2 occurrence af one non@visibdle 
character ™ ™. | 
JOENTIESERS 
<IDENTIFIER> <= <LETTER> | <IDENTIFIER> <LETTER> 
1 <ICENTIFIER> <DIGIT> | 
1 <IDENTIFIER> <B8REAK> 
RESTRICTIONS: 
Lé An identifier may not contain blanks. 
2 e An identifier may contain a maximum of 53 characters. 
5% Reserved words may not be used as identifiers. 
be "Special™ words may be used for segment and DO"group 
identifiers without losing their special significance 
in SDL. | — | 
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In att other cases» “*speciat”™ words may be used as 
identifiers» however» they lose their special 
significance throughout the entire program when 
declared at Lexic Level OQ. When declared at any 
greatar tlexic lavel», they only tose their special 
meaning within the procedure in which they are 
declared. 


CAlso see "Structure of an SDL Program™ and “Appendix 
LJ 


All reserved and special words must be in ait upper 
case@e 


Identifiers must contain exactly the same letters» 
where upper and lower case are concerned» to be 
identical. If an upper-case identifiers for example» 
is entered tin lower case» it 18 a new identifier. 


ING> <s= fx <CGOMMENT TEXT> */ 


The pair /* creceding the <COMMENT TEXT> must appear 
as adjacent symbols. Similarily» the pair */ 
following the <COMMENT TEXT> must also appear as 
adjacent symbols. 


<COMMENT TEXT> 332 <EMPTY> 


<EMPTY> s3= 


Notes 


<COMMENT TE 
CHARACTER> 


oe < 


<CARD TERMIN 


1 <COMMENT TEXT CHARACTER> 
1 <COMMENT TEXT CHARACTER> 
<COMMENT TEXT> 


<EMPTY> is the null set or the occurrence of nothing. 


= <DIGIT> 
1 <LETTER> 
| <SPECIAL CHARACTER> 
: "= ${ o@ 1 FT 


ATOR> ::= yA 


a mm RecA SARNIA siieaabaissnaame a A a earn ee a RR tS Ot 


ees 
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RESTRICTION: A 2% is treated as any other string character if 


it 1s contained within a <CHARACTER STRING> or in 
<COMMENT TEXT>. However» in all other cases» a Z% 
will cause the scanning of the current source 
image to terminate and to continue in the next 
source image. | 


NUMBERS 
<NUMBER> i:= <DIGIT> | <NUMBER> <DIGIT> 


NOTE: Range of signed numbers “(2 exp 23) to (2 exp 23)-1. 
Range of unsigned numbers 0 to (2 exp 24)°-1. 


BII STRINGS 


<BINARY DIGIT> ::= O | 1 ' <COMMENT STRING> 


<BINARY DIGITS> <:3s= <BINARY DIGIT> 

| <GINARY DIGITS> <BINARY DIGIT> 
<QUARTAL DIGIT> t:= <BINARY DIGIT> 1 2 4 3 
<QUARTAL DIGITS> ::= <QUARTAL DIGIT> | 

1 <QUARTAL DIGITS> <QUARTAL DIGIT> 
<QCTAL DIGIT> ::= <QUARTAL DIGIT> 141516147 


<OCTAL DIGITS> s::= | <OCTAL DIGIT> 
| <OCTAL DIGITS> <OCTAL DIGIT> 


<OCTAL DIGIT> 
is8ititgstaAtBbici DIE J F 


<HEX DIGIT> :3 


<HEX DIGITS> ::= | <HEX DIGIT> 
«| <HEX DIGITS> <HEX DIGIT> 


<BIT GROUP>33= | C4) <HEX DIGITS> 
1 €3) <OCTAL DIGITS> 
§ €2) <QUARTAL DIGITS> 
f €1) <BINARY DIGITS> 


<BITS>:3:= | <BIT GROUP> | <HEX DIGITS> 
| <BITS> <3IT GROUP> 
| <EMPTY> 


<BIT STRING> fe= q<BITS>2~ 


= niacin eastside nice ca lal aia eect aac eth, Scarce air ab ee aus ta ana Sea a DE fea SS a SCL SS CSR aN tan A LS BS SIT IGS le AS SOS A al RS aS Sa kes 3 DU i a SE Be a a SAS BE Sea i Nh BAS el Sac SRN we od a a he RAR a eG al ER ah Mal Sins? Egat Tow 
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RESTRICTIONS: 
le If no bit mode 1s specified Ciea@e» The indicator | 


digit in parentheses 1s omitted)» “™Hex™" is assumed. 
This can anly de assumed if the bit string does not 
start with a mode indicator, when the mode 15 
SWitcned to “Hex"» an explicit "€4)" is requirede 


2 e As noted abpoves a <COMMENT STRING> may appear 
anywhere within a <8IT STRING>» but not within the 
parentheses bounding the indicator digit. The 
presence of 4a <COMMENT STRING> wills in no way» alter 
the value of the <8IT STRING> containing ite Blanks 
May not appear in a <BIT STRING>. 


Example: 
2(63)6330316260/«% THIS #/313230/% IS #/63302560/e THE e/ 
4321626360/*% LAST *#/512523465124/%* RECORD */@ 


<STRING> :3= <CHARACTER STRING> 
1 <BIT STRING> 


CHARACTER STRINGS 


<CHARACTER STRING> 33 "<STRING CHARACTER LIST>*" 


<STRING CHARACTER LIST> 33: <EHPTY> 
1 <STRING CHARACTER LIST> 
<STRING CHARACTER> 


<STRING CHARACTER> 332 <DIGIT> | <LETTER> 1 <SPECTIAL CHARACTER> 
iwewy { adi #i 2% 


RESTRICTIONS: If a quote sign 1s desired tn a é character 
strings then two adjacent quote signs must 
appear in the text. 
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EXAMPLES DECLARE STRING CHARACTER (6)>» 
: | | QUOTE CHARACTER (1)3 


STRING := “"AB"™CDE*; 


QUOTE | 


After executions STRING will contain: AB"CDE> 
-and GUOTE will contain: "7. 


Notes A <CHARACTER STRING> may contain a maximum of 
256 characters. 


CHAR TABLE 


The translation bit tabte for the set-membership reduction is 
rather cumbersome to construct by hands so the compiler provides 


a convenient notation for tabdie constructse These constants are 
written: 
<TABLE CONSTANT> ::= CHAR_TABLE ( <TASLE STRING> ) 


<TABLE STRING> ss <STRENG> &§ <TABLE STRING> CAT <STRING> 


The constant denoted 1S a 256“bit string with 93€1)12 a 
corresponding to every character in <TABLE STRING>. (When a <BIT es 
STRING> occurs in the <TABLE STRING>» it ws used to denote 
non=graphic characters in their hexidecimal CEBCDIC) fora.) 


QTHER CONSTANTS 


<CONSTANT> 3: 


<NUMBER> 1 <STRING> | TODAYS_DATE 
1 SEQUENCE_NUMBER 
| HEX_SEQUENCE_NUMBER 
1 <TABLE CONSTANT> 


TODAYS_DATE represents the date and time of 
compilation of the program. It is the same as the 
date and time anpearing at the top of the program 
Listing. It is a character string with the following. 
format -- |. 


"MM/DD/YY HH2MM" 
SEGUENCE_NUMBER represents a <CHARACTER STRING> of 8 


characters which is the sequence number of the 
current source image being compiled. 
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HEX_SEQUENCE_NUMBER represents a bit string of 8 
Chex) digits which is the sequence number of the 


current source tmage line being compited. If this 
sequence field is blanks then HEX_SEQUENCE_NUMSER = 
9000000004 


If the current source image line sequence number is 
12753000» then on this Lines: 


SEQUENCE _ NUMBER = 712753000" 
HEX_SEQUENCE_NUMBER = 21275300093 
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<PROGRAM> si= 


<DECLARATION STATEMENT 


LIST> 


& @ «m 


<DECLARATION STATEMENT> 3s 


<PROCE DURE STATEMENT 
LIST> 


a B wee 
eo™ 


<PROCEDURE STATEMENT> 


& 8 «a 
osm 


<EXECUTABLE STATEMENT 
LIST> 


ee @ am 
> 2 ——_ 


2 © om 
eo ™= 


<EXECUTABLE STATEMENT> 


A program written in 


described in the syntax above. 


of the 
defined» 
data items (variables» 
is not requireds odut 
final statement 


program May not 


ee de oe ee Re ee a 


OF AN SDL PROGRAM 


<ENPTY> =. = 
 <PROCEDURE STATEMENT>> 


5a. 
COMPANY CONFIDENTIAL 
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| Pe Se ese. pat CG) 


pei : 
ages 


<DECLARATION STATEMENT LIST> 


<PROCEOURE STATEMENT LIST> 


EXECUTABLE STATEMENT LIST> 


FINI 


<EMPTY> 


<DECLARATION STATEMENT> 
<DECLARATION STATEMENT LIST> 


<DECLARE STATEMENT>> 

<DEFINE STATEMENT>> 

<FILE DECLARATION STATEMENT>; 
<SWITCH FILE DECLARATION 
STATEMENT>> 


<FORWARD oF ee ane? 


<USE STATEMENT>> 
<SEGMENT STATEMENT>> 


<DECLARATION STATEMENT>; 


<RECORD STATEMENT >> 


<PROCEDURE STATEMENT LIST> 


<PROCEOQURE DEF INITIOGN> 
<SEGMENT STATEMNENT> 
<PROCEDURE STATEMENT> 


<EMPTY> 
<EXECUTABLE STATEMENT> 
<EXECUTABLE STATEMENT LIST> 


See SECTION 19. 


SDL must follow the sequential structure 


That is» the executable section 


appear until all procedures have been 
and procedures may not be defined before the formats of 

arrays» 
if present must 
in the programe 


“FINI” 
as the 


etce) have been declared. 
physicatly occur 
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The procedure statement Cincluding dectaration» procedure» and 
executable statements) is the basic structure in SDL. An SOL 
program is a collection of procedures» each of which can be 
described for conceptual purposes as a microcosm of the program. 
Any given crocedure may contain a collection of other procedures 
within itself. This orocess 18S known as “Nesting”. 


The “Lexicographic Level" of any statement in the program is 


equal te the number of procedures in which it is nested. The 
program itself will always be Lexic Level OQ» and no procedure may 
have a texic tlevet greater than 15. The diagram in Figure 1 


illustrates procedure nesting and lexic levels. 


It is important to understand the relationships between these 
nested procedures. As Figure i. indicates» the name of any 
given procedure is contained tn the procedure in which it is 
nested at the next lower texic level. For example» procedure D 
is a Lexic Level 2 procedures however» its name» “D0"» is part of 
Lexic Level le 


The "*scope” of any given procedure is recursively defined as: 


1) The procedure itself>» 
2 Any procedure(s) nested within the procedure» 
3) Any orocedure Cand its nested orocedures) whose name 


aopears at the same lexic Level and within the same 
procedure as 1ts Own names and 


4) The procedure in which its own name is defined. 


In Figure 1» one can see that the scope of Procedure 8 includes: 


1) Itself» ieee» Procedure 8 
2) The nested procedures within 8 CC and D)>» 
3) The other procedures defined at LLO: —E Cand its 


nested procedures F and G) and procedure H (Cand tits 
nested procedures Je K» Lo Me Neo and P. 


4) The procedure which defines 3» in this cases» the 
program A. 


Note: All the Lexic Level 0 procedures have scope to. gach 
othere This occurs because of rule 4 aboves wherein 
the program itself is thought to be a "procedure”™. 
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In the same manner» the scope of procedure J includes Je K» L» Mp» 


N»x P» and He 


By understanding the relationships between the various 


procedures» it is possible to determine which procedures may be 
invoked by any given proceduree SOL has been defined so that any 
procedure X may cali or invoke any procedure Ys if the scope of Y 
encompasses Xe , , 


In Figure 1» Procedure J may catl procedures J»KeLeMsHeEr and B 
because each of these contains J in its scope. | | 


Note: J cannot cail the program A since the name of the 
program» if there is one» exists outside the progragr 


and is» therefore» not compiled; howevers J may 
access the data contained in A Cie@er Al» A2we A3Ze and 
A4&)e — 


Figure 2 below shows the relationship between scope and calling 
ability for program A. 7 
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Pag ey al lbp Sel IN al h ity ua Lite US Fn Ra Os ae a al 


casera se» 


PROGRAM A 
DECLARE Al» A2s» A3ds A&>- 
PROCEDURE 8B» 
DECLARE Ble B82» 83> 
PROCEDURE Cs 
DECLARE Clse Ces» C3, 
EXECUTABLE STATEMENTS> 


END Cs 
PROCEDURE O-» 
EXECUTABLE STATEMENTS; 
ENO Os 
EXECUTABLE STATEMENTS, 
END 85 
PRUCEDURE Es 
DECLARE Elser E25 
PROCEDURE Fs; 
DECLARE Fie F2e F3s5 
EXECUTABLE STATEMENTS; 
END Fe» 
PROCEOQURE G> 
DECLARE Gls G2> : 
EXECUTABLE STATEMENTS; 
ENG Gs 
EXECUTABLE STATEMENTS; 
END E> 
PROCEDURE H-» 
DECLARE His H2sx H3*r H4;> 
PROCEDURE J>, 
PROCEDURE K> 
END Ks 
PROCEDURE Ls, 
END L» 


ENDS 
PROCEDURE M3 
PROCEDURE N3 


END No 
PROCEDURE P> 
END P>» 
END Ms 
END Az 
EXECUTABLE STATEMENTSs 
FINI 


Fig le Procedure Nesting 
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Procedure 


Scope 


Note: 
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CALLING PROCEDURES 


» 
% 
* 


A 38 C D E F G@ H J K L M NP 

B & * * & * & te & & & x * te t 

C &k& « i 

0D x & 

E * t * & te & & DY Ps & te & & & 

FE & & ik : 

G & & # 

H & t& i & * te * i * & « & x i 

J te 4 & & x * 
K xk tt kk 

L « « 

M ik te ri & x: *« ® 

N 

P 


To find the scope of a procedures» find the procedure 
in the column of procedure names. The horizontal 
rows to the right indicate the procedures in its 
scope. The procedures which may be called by a given 


procedure are marked in the vertical columns below 


that catling procedure. 


Fig 22 Scope and Catling Ability 


cota Emmi sansa ME ET A A TE MTR IOEN EN ha IOS ATRA ry CediBr ana CEL 


oo 
{: \ 


4-1 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP 31000 SDL CBNF Version) 
SANTA BARBARA PLANT P.S- 2212 5405 (CG) 


PROGRAM SEGMENTATION 


<SEGMENT STATEMENT> 33= <SEGHENT STATEMENT WOROD> C<SEGMENT PART>)>; 

<SEGMENT STATEMENT WORD> 3ss= SEGMENT 1! SEGMENT_PAGE 

<SEGMENT PART> 3:= <SEGMENT IDENTIFTER> <PAGE PART> <IMPORTANT PART> 1 
<SEGMENT IDENTIFIER> <IMPORTANT PART> <PAGE PART> 

<SEGMENT I[DENTIFIER> :3= <IDENTIFIER> 

<PAGE PART> 3::3= <EMPTY> 1 OF <PAGE IDENTIFIER> 

<PAGE IDENTIFIER> s2= <IDENTIFIER> 

<IMPCRTANT PART> 3s= <EMPTY> 1 » IMPORTANT 


ee ¢@ 


As the SNF indicates» the <SEGMENT STATEMENT> may occur anywhere 


within an SDL orogram. Its purpose 1s to reduce the memory 
requirement of the program by atlowing segments to overlay each 
other. 

Thera is a maximum of 16 pages with 64 segments per page. The 


segment names represent a pagesnumber segmentenumber paire 


Every subsequent segment will be compiled to that page until 


( It is only necessary to specify SEGMENT_PAGE once for each page- 
another SEGMENT_PAGE 1s encountered. 


If there are no SEGMENT_PAGE specifications» all segments will be 
compiled to Page Zeros» and there may be no more than 64 segments 
total. If a program is to be segmented» the first statement must 
be a <SEGMENT STATEMENT>. Otherwise a warning message will 
appear in the source listing. 


There are two types of segmentation: "jermanent”™ and 
"temporary". Every statement following a permanent <SEGMENT 
STATEMENT> will be compiled to that segment until another 
<SEGMENT STATEMENT> is read. Nonsconsecutive statements may be 
compiled ta the same segment by ustng the = same <SEGMENT 
IDENTIFIER>. Note» however» that <D0 GROUP>s (See "00 GROUPS”) 
and procedures must end in the same segment tin which they Ddegin.e 
If this is not the case» the comoiler issues a warning and 
Inserts code to bring the program back to the proper segment s0 
that the dowgroup or procedure may be exited correctly. 


The following example illustrates the use af the “permanent” 
<SEGMENT STATEMENT>. 


Pking He BASE omnia So 
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SEGMENT (XX)3) iz 

DECLARE Al» A2»> A3»x A&>s 
PROCEDURE 28; : 

DECLARE Bis 82» 83; 

SEGMENT CYY)> 

PROCEDURE Cs 


END C3 

PROCEDURE D3 

END 03 
SEGMENT (XX)3. 
END B3 


FINI 


Gnty procedures C and D have been compiled to the segment “YY". 
segment "XX" is segment zero and inctudes everything else. 


A <SEGMENT STATEMENT> is treated as “temporary” only when it 
precedes a “Subordinate Executable Statement” within any of the 
following statements: | , 


<ACCESS FILE HEADER STATEMENT> <SEARCH DIRECTORY STATEMENT> 


<CASE STATEMENT> <SEND STATENENT> © 
<IF STATEMENT> <SPACE STATEMENT> 
<READ STATEMENT > <WRITE STATEMENT> 


<RECEIVE STATEMENT> | <OPEN STATEMENT> 


in these specific cases» the segment change appites only to the 
subordinate statement following it. For example» the syntax for 
the <IF STATEMENT> could be written as follows: 


<IF STATEMENT> ise IF <EXPRESSION> 


Biodcdo SDL CBNF Version) 


THEN <SUBORDINATE EXECUTABLE STATEMENT> 


1 IF <EXPRESSION> 


THEN <SUBORDINATE EXECUTABLE STATEMENT> 
ELSE <SUBORDINATE EXECUTABLE STATEMENT> 


Sale Ma cectin A Te wet cee ak A ANE, LIER ERATE Sool iD sition OSG eR. A ek we eS Bs Ghali 
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The segmentation of a hypotheticat <IF STATEMENT> is presented 
below to iilustrate the use of a “*temporary™ <SEGMENT STATEMENT>. 


SEGMENT (CA)5 
PROCEDURE X>, 


IF Y>Z THEN Y2=Z3 ELSE 
SEGMENT (B)3 
DO SOME_FUNCTIONS 


END SOME_FUNCTION; 


* & & © 


END X> 
*« Compiled to Segment (3) 


Because the <090 GROUP>> "SOME_ FUNCTION,» is a subordinate 
<EXECUTAS8LE STATEMENT> in the <IF STATEMENT>» Segment (2) 
automatically ends when the <D0O GROUP> is terminated. All 
statements following are compited to Segment (A). 


Notice the distinction between Segment (C(A)>» a "permanent" 
<SEGMENT STATEMENT>» and Segment (B)» a *temporary™ one. | 


If the construct »IMPORTANT appears in the <IMPORTANT PART> of a 
segment statement» than the SOL/UPL compider will set the decay 
factor for that segment to seven. If the control option word 
SIZE 15 used» a list of segment names» numbers and sizes will be 
printed at the end of the source Listing. The segments that have 
been marked »IMPORTANT will be noted. 


EXAMPLES: 
SEGMENT CSEGZERO » IMPORTANT) 3 
SEGMENT_PAGE CSEGONE OF PAGEZERO » IMPORTANT), 
SEGMENT CSEGTWO » IMPORTANT OF PAGEONE)> 
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PRAGMATICS 


The decay factor field in the segment dictionary is three bits 
Longe It will always have a value of zero or seéven. Whatever 
value the compiler puts in the code files the MCP changes ite So 
when reading a memory dumps a value of zero means that the memory 
priority will decay more slowly. But when looking at code files» 
a value of seven means that the memory priority will decay more 
Slowly. | 
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DECLARATIONS 


DATA IYPES 


Three main types of data may be declared in SOL: 


1) BIT 
2) CHARACTER 
3) FIXED 


A bit field consists of a number of bits specified by a number in 
parentheses following the reserved word "BIT". The field may be 
a@ maximum of 652535 bits. 


A character field is a number of characters» 8 bits each» 
specified by a number in parentheses following the reserved word 
"CHARACTER". The field may be a maximum of 82191 characters. 


A fixed data field is a 24*bit» signed numeric field where the 
high order bit is interpreted as the signe Negative numbers are 
represented in 27s comnolement form. 


The range of signed numbers Ci.e@e» fixed data fields) is *€2 exp 
23) to €2 exp 23)°*1. The range of unsigned numbers (Cbit data 
fields) is 20 to (2 exp 24)-1. Bit fields» as noted adove» are 
not restricted to 24 bits. Howevers for arithmetic purposes»s 
only the towrtorder 24 bits will be considered except in the case 
of the extended arithmetic function. 
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<DECLARE STATEMENT> s:3= © DECLARE <DECLARE ELEMENT> | 
1 <JECLARE STATEMENT> » <DECLARE ELEMENT> 


<DECLARE ELEMENT> sss <DECLARED PART> 

<TYPE PART> 

1 <STRUCTURE LEVEL NUMBER> 
<STRUCTURE DECLARED PART> 
<STRUCTURE TYPE PART> | 

1 PAGED <ELEMENTS@*PER@PAGE PART> 
-€ARRAY IDENTIFIER> <ARRAY SOUND> 
<TYPE PART> | 

1 DYNAMIC <COMPLEX DYNAMIC> 
<DYNAMIC TYPE PART> 

| <DECLARED REF> REFERENCE 

| <DECLARED RECORD REF> REFERENCE 


The <DECLARE STATEMENT>. specifies the addresses and 
characteristics of contents of memory storage areas. 


Any number of <DECLARE ELEMENT>s may be declared in one <DECLARE 


STATEMENT>» and must be separated by commas. - Best code is —_— 
senerated if att elements are dectared within one <DECLARE ae, 


STATEMENT>.~ (C€See Appendix VI). 


The maximum number of data elements Cincludinc fillers» dummys» 
and implicit fillers) contained in one structure varies as to the 
compiler being used» Ccurrently: 509 - smatl versione 75 - Large 
version). Any attempt to declare more wilt cause a table 
overflow error to be detected at compile time. 


An array may have a maximum of 652535 elements»e each being a 
maximum of 652535 bits (82191 characters). 


The five types of <DECLARE ELEMENT>sS are each discussed belowe. 
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<RECORS STATEMENT> ss= RECORD <RECORD IDENTIFIER> 
<FIELD LIST> 

<RECORD ICENTIFIER> s3s= <IDENTIFIER> 

<FIELD LIST> ::= <FIELD ELEMENT> | 


<FIELD LIST>» <FIELD ELEMENT> 
| C<COSPATIAL FIELD LIST>] 
1 <FIELD LIST>» (C<COSPATIAL FIELD LIST>] 


<COSPATIAL FIELD LIST> 33= <FIELD ELEMENT > 
| 1 <COSPATIAL FIELD LIST>» <FIELD ELEMENT> 


<FIELD ELEMENT> ss=_ <SIMPLE FIELD ELEMENT> 
1 <COMPLEX FIELD ELEMENT> 


<STMPLE FIELD ELEMENT> 3 <SIMPLE ICDENTIFIER> <FIELD TYPE> 
| FILLER <FIELD TYPE> 


<COMPLEX FIELD ELEMENT> :2:= <ARRAY IDENTIFIER> <ARRAY BOUND> 
<FIELD TYPE> 


<SIMPLE IDENTIFIER> s:= <IDENTIFIER> 

<ARRAY IDENTIFIER> 2: <IDENTIFIER> 

<ARRAY SQOUND> :e= C<CONSTANT EXPRESSION>) 
<FIELD TYPE> :?= FIXED 


i BIT <FIELO SIZE> 
1 CHARACTER <FIELD SIZE> 
| <RECORD IDENTIFIER> 


<FIELD SIZE> 3: C<CONSTANT EXPRESSION>) 
DATA STRUCTURING 


A new mechanism called Record is intended to eventually replace 
the PL/I“-style structures currently being used in SDL. For 
compatibility» of course» no current features will be removed 
until they have fallen into disuse. Although records are used 
for the same purpose as the current structures» they are 
different in declaration» referances, and runctime effect. They 
are designed to provide the following benefits: 


1. Since fields of records are not represented oby 
descriptors at runtime» they do not cause large name 
stacks. This removes the need for USE declarations and 


elaborate SUSBITting schemes which have been used in the 
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A record is an addressing template analogous to a structure 


past.) 


Paged arrays may be structured using records. 
Arrays may occur nested in Structural Levels. 


Accessing of linked data structures is safer» simpler>s 
and often faster. 


The substructure is specified in one place» but may be 
invoked in many places to declare variable or specify 
substructure of other records» thus reducing the 
probability of error. 7 : 


The syntax encourages the treatment of data structures as 


new types» hopefully imposing better structure on 
programs. 


RECORDS 


declared REMAPS BASE tn the current language. Declaration of a 
record causes no data space to be allocateds it only establishes 
an addressing schema in the scope of the dectaratione An example 
of a record declaration is: 


RECORD TYPEFIELD 
NV BiTC1L)» 
NSR BITCL)» 
DATATYPE BITC6)s, 


RECORD DESCRIPTOR 


LTP TYPEFTELD> 
LEN BITC16)> 
[ADDR BITC24)> 
VAL BITC24)]5 


This twoclayered definition provides roughly the same effect as 
the following PL/I“style structure: 
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DECLARE 1 DESCRIPTOR REMAPS BASE> 
2 TYPE» 
3 NV BITC1)>» 
3 NSR BITC 1)» 
3 DATATYPE BITC6)>» 
2 LEN SITC1L6)> 
2 ADOR BIT(24)>» 
2 VAL REMAPS ADDR BIT(24)>3 


The concent of making several fietds alternative formats for the 
Same area» or “cospatial”™» is expressed by enclosing the List of 
atternatives in brackets. This has the advantage of not 
requiring a distinguished alternative (Cthe largest) which is 
remapped»s and it aiso groups alt the alternatives in ane spot 
textually. 


Another distinction of record is in the nested use of definitions 
to achieve the effect of PL/I level numbers. The advantage here 
is that a single record may be used as part of several other 
recordss at different levels» or even more than once in another 
record declaration. This can be done without repeating the 
definition of its substructure» thus simplifying modifications. 
The use of a record in more than one contexts of courses requires 
C that qualified names be introduced. This is discussed later in 
detail. 


Each field of ae record has a type associated with it in the 
declaration (the type may 6be another record identifier)» and may 
also be arrayed by noting the array bound after the field 
identifier-* similar to an ordinary array declaration. The type 
of an array field may be a record which also contains array 
fields» i.@.» arrays may be nested in away not permitted by the 
current SDL structures. 


STRUCTURES 


A structure which would be the functional equivalent of the 
current SOL structure may be declared using the previously 
defined record: | 


QECLARE D0 DESCRIPTOR; 


Declaring this structure allocates storage on the value stack for 
the data (48 bits in this case) and allocates one descriptor on 
the name stack. A structure array could also be declared Cand 
paged» in this example): 


DECLARE PAGEDC16) DAC256) DESCRIPTOR; 
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This causes one array descriptor to be allocated. The space for. 


the array is not allocated on the value stack in this case 
because the array 158 paged. | | | | 


The field of a structure is accessed by use of a qualified name. 
For example» the tength field of descriptor "D" is named “D.LEN* 


and the type field 1s named “D.YJYPE™. The namewvalue bit of the 


type field is named “"D.TYPE-NV". When a component of the name is 
an array» a subscript must be mentioned after that component as 
in "DACZ20)-T YPE.~NSR". Qualification must be complete and 
explicit» unlike that of PL/I or COBOL.j The dot notation was 
chosen because it 1s akmost a standard among languages using 
qualified names. The underscore character ("_") 1s used as a 
replacement for the current use of "2." as an identifier break 
character. 


INDEXED FIELD REFERENCES 


To provide a Link between current and new facilities» a fieid of 
arecord may be named by itself (no qualification) with an index. 
The effect is the same as indexing a field of a structure 
declared REMAPS BASE. This eases reprogramming since in many 
applications the structure declaration could be rewritten as a 
record without changing the rest of the code. | 


STRUCTURED RECORD STATEMENT 


<STRUCTURED RECORD STATEMENT> s3= 
RECORD 01 <RECORD I[CENTIFIER> <TYPE> 
<STRUCTURE ELEMENTS> 


<RECORD IDENTIFIER> 3s:= <IDENTIFIER> 


<STRUCTURE ELEMENTS> s33= | | 
e <LEVEL NUMBER> <STRUCTURE ELEMENT> 
1 <LEVEL NUMBER> <STRUCTURE ELEMENT> 
» <STRUCTURE ELEMENTS> 


<STRUCTURE ELEMENT> s33= 
<FIELD NAME> <TYPE> 
| <FIELD NAME> <ARRAY BOUND> <TYPE> 
| FILLER <TYPE> | 
I <FIELD NAME> REMAPS <REMAPS OQBJECT> 


<TYPE> 


SON ME I aR Re Re HCH ARN LEH TAR EIR PME mala, Fae oN ete payn gee rs 
RUG EERIE ETE EA EN PT OR ETE EROS PIELER ES PR cans 5198 a oe ene ee a a Ae le i oe eT ee A ee MC ae a aoe co ih sn a cS 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP 81000 SDL CSNF Version) 
SANTA BARBARA PLANT PeSe 2212 5405 (G) 
Structured - Records have been implemented to allow easier 


conversion of the current PL/I-styie structures to records. 


Structured Records have the same capabilities as RECORDS. 


Fields declared aS an array may not have nested structure. 


| SR a NNER 
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<DECLARE ELEMENT> :2= oes 1<DECLARED PART>1... 


<DECLARED PART> 3s:= 


COMPLEX IDENTIFIER 


LIST> 33= 


<COMPLEX IDENTIFIER> 3s= 


<SIMPLE ICENTIFIER> s3= 


“ARRAY IDENTIFIER> s3= 


<ARRAY BOUND> s2= 


<REMAP QBJECT> 3: 
<TYPE PART> 3:3s= 


<REMAPS TYPE PART 3:= 


<RECORD ICENTIFIER> 235 
<FIELD SIZE> s:3= 
<CONSTANT EXPRESSION> s3s= 


<CONSTANT EXPRESSION 
OPERATOR> ::= 


<COMPLEX IDENTIFIER> <TYPE PART> 
C<COMPLEX IDENTIFIER LIST>) 
<TYPE PART> 


<COMPLEX IDENTIFIER> REMAPS — 


<REMAP OQBJECT> <REMAPS TYPE PART> 


<COMPLEX IDENTIFIER> 
<COMPLEX IDENTIFIER>» 


<COMPLEX IDENTIFIER LIST> 


<SIMPLE IDENTIFIER> 
<ARRAY IDENTIFIER> <ARRAY BOUND> 


<IDENTIFIER> 
<IDENTIFIER> 

C<CONSTANT EXPRESSION>) 
BASE _ 
<SIMPLE IDENTIFIER> 


<ARRAY IDENTIF TER> 
<ADDRESS GENERATOR> 


FIXED 


CHARACTER <FIELD SIZE> 


BIT <FIELD STIZE> 


<RECORD IDENTIFIER> 


FIXED 


CHARACTER <FIELD SIZE> 
BIT <FIELD SIZE> 


<IDENTIFIER> 


~~ C<CONSTANT EXPRESSTION>) 


<NUMBER> 1! <CONSTANT EXPRESSION> 
<CONSTANT EXPRESSION OPERATOR> 
<NUMBER> | (<CONSTANT EXPRESSTION>) 


t+ tot «© 17 1 MOD 
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Data may be declared as simple» having one occurrences or as 
subscripted»s having as many occurrences as specified by the 


<ARRAY BSOUND>. 


The <TYPE PART> specifies the type of data in the field and the 
field size. 


As the syntax indicates» different data fietds having the same 
type may be declared collectively as a <COMPLEX IDENTIFIER LIST>. 


The following examples illustrate the various options available 
in this type of <DECLARATION STATEMENT>. 


DECLARE A FIXEQOs 
B CHARACTER (€10)>. 
C BIT C40)» 
CO» E» F (C5) ) BIT €10)> 
G (20) FIXED,» 
H (5) CHARACTER (6), 


le A is a 24*bit signed numeric field. 

Ze B 1s a 10“byte character field. 

36 C is a 40-bit field 

4 D and € are 10-bit fietds each. 

5 F is a Swelement array of 10-bit fields. 

6 e G 1s a 20e*element array of 24"bit signed numeric 
fields. 

Te H 1s a 6@byte character array with five elements. 


Data fields may be re-formatted by the use of the remapping 
device: 


<COMPLEX IDENTIFIER> REMAPS <REMAP QBJECT> <TYPE PART> 


Remapping is subject to the same general rules discussed above. 
The following exampte best illustrates its use. 


DECLARE A FIXED» 8 BIT €50)> 
AA REMAPS A CHARACTER (3)> 
BBC2) REMAPS SUBBITCB8»2) FIXED> 
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Note that BB specifies 48-bits Cor 2 elementse oh-bits esenis.: A 


field may not be remapped larger than its original size. If the 
<REMAPS OBJECT> is an <ADDRESS GENERATOR> this check cannot  0Obe 
made until run time. The check will be made onty when the the 
compiler option FORMAL_CHECK is set. 


There is no limit on the numbder of times a fieltd may be remapped» 
A fietd which has remapped another may itself be remapped. The 
REMAP option specifies that the identifier on the left side of 
the reserved word REMAPS will have the same starting address as 
the identifier on the richt side. 


For rules concerning the remapping of dynamic or fornal 
declarations» see those sections. , 


A data field may be remépped to base which will give the field a 


relative address of zero. For example: 
DECLARE X REMAPS BASE BITC7)> 


This device is used as a freesstanding declaration since it does 
not remap a previousty declared data item and is used primarily 
with data to be indexed (See ADDRESS VARIABLES). 
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STRUCTURE DECLARATIONS 

<DECLARE ELEMENT> 325 eee I<STRUCTURE LEVEL NUMBER> 


<STRUCTURE DECLARED PART> 
<STRUCTURE TYPE PART> I eee 


<STRUCTURE LEVEL 


NUMSER> 2:25 <NUMBER> 
<STRUCTURE DECLARED 
PART> ::= «DECLARED PART> 
| 1 FILLER 

1 <DUNMY PART> REMAPS <REMAPS QO8JECT> 
<DECLARED PART> ::= See NON“STRUCTURE DECLARATIONS 
<DUMMY PART> :2:= DUMMY <ARRAY BOUND PART> 
<ARRAY BOUND PART> 32= <EMPTY> 

| <ARRAY BQUND> 
<ARRAY BOUND> ::= C<CONSTANT EXPRESSION>) 
<STRUCTURE TYPE PART> ::= <EMPTY> 


1 <TYPE PART> 
| CHARACTER ! BIT 


<TYPE PART> 3::= See NON@*STRUCTURE DECLARATIONS 


SDL allows the structuring of data where a4 field may  =0O5b5e 
subdivided into a number of subsfietds» each of which Aas its own 
identifier. The whole structure is organized ina hierarchical 
form, where the most general dectaration is at Level Oi Cor 1) 
and the highest at Level 99. A subddivided field its caited a 
group item» anda field not subdivided is known as an elementary 
item. 


When the REMAPS option appears on a dectare with level number 
greater than ones It 1s known as an intrasstructure remap. In 
this case» the <REMAPS <OBJECT> must be the last identifier 
dectared in the same structure with the same ievel numbder unless 
that identifier was also declared with REMAPS.~ In that case both 
must remap the same identifier. 


DECLARE 1 Ap» 


2B BITC5)>» 
2 C BITC40O)>» 

5 D BIT (1)>» 
2 E REMAPS C CHARACTERC1)> 
2 F REMAPS C FIXED» . 
2G FIXED; | 
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is legal» but £ and F may not remap 8 or De 


The type and tength of data need not be specified on the group 


tevel. All elementary items must indicate type and tength» and 
the compiler witl assume type bit and add the lengths of the 
components to determine the tength of the group item. For 


example: 


DECLARE O01 A>» 
02 Ce 
03 D BIT(20)> 
O03 E BITC30)> 
O02 D CHARACTERS(5)3 


In this example» both A and C are considered group items» with A 
having a totai length of 90 bits and C being 50 bits tong. 


FILLER 


FILLERs may be used to designate certain elementary items which 


the program does not reference. If the group item has a length 
specified and the FILLER is the last item in a Structurer it may 
be omitted» and the compiter witt consider the item to be an 


implied FILLER. <A FILLER may never be used as a group item. 


A group item may have a type specified with length omitted. The 
compiler will calculate the tength from the tength of the 
subtitemse For examples | 


DECLARE O21 A CHARACTER» 
02 8B FIXED» 
02 C BITCS)s 


A wiil become type CHARACTERC4&) Leaving an imolied 3-bit filier 


after C. 


If the 01 level group item is an arraye it is mapped as a 
contiguous area in memorye However» subdivisions of this array 
are not contiguouse in the exaaple structure below: 


01 AC5) BITC48)> OL ACS)» 
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02 8 FIXED» or 02 B FIXED» 
02 C FIXED, O02 C FIXED> 


xe 4B bits 


x 
® 


[ AQ i Al { A2 i A3 i A4 { 
i 80 ! CO ' B1 ' C1 § 382 1 C2 1 B83 1 C3 1 B4 I C4 I 


OS SBS OOO OG eGesbe @ Ose ae eoeen Been eaoeeaeene Oe es eeae@,@eg ea geseeees & @ @ we ww 


x 
& 


wee 24 bits 


If a group item is an arrays» an array specification may not 
appear tn any subordinate items that ts» only onewdimensional 
arrays are allowed. Downelevel carry of array specifications is 
implied. 


Structured data may be remapped in the same manner as 
non*structured data. In additions Structured data may be 
remapoed with a dummy group identifier. The puroose of this 


construct is to allow the user to remap data items without having 
to declare another group item which describes the same memory 
areas. Thus» in the following example: 


O01 A BITC100),- 
02 B BITC(20)» 
O02 C BITC(80)>; 
"A" might be REMAPped as 


O01 AA REMAPS A SITC100)> O1 DUMMY REMAPS A S8ITC100)> 


02 BB BITC30)» or 02 BB BITC30)» 
O02 CC aBIT(70)5 O02 CC BITC70); 


Both <A and AA in the above example refer to the same area in 
memory. Hence AA 1s redundant. During runtimes the descriptor 
for AA will also be on the stack. 
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If DUMMY is substituted for the identifier AA» no descriptor will 
be generated» however 38 and cc will both point to A in the 
correct fashione | 


The user shoutd note the distinction between DUMMY and FILLER. 
DUMMY is used In conjunction with REMAPS to eliminate the 
necessity of declaring a redundant group iteme FILLER is used if 
one desires to skip over an area of core. 


The following restrictions apply to the use of DUMMY REMAPSs 


is DUMMY may only be used with remap dectarations. 

ae Alt the restrictions applying to  REMAPS appty to 
DUMMY REMAPS. 

36 DUMMY must not remap another DUMMY. 

Le DUMMY group items must have at teast one none-fitler 


component. 


fo 
% ‘ie : 
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PAGED ARRAY DECLARATIONS 
<OECLARE ELEMENT > 22= eos! PAGED <ELEMENTS“PER=PAGE PART> 


<ARRAY IODENTIFIER> <ARRAY BOUND> 
<TYPE PART> — 


<ELEMENTS*PER@PAGE 

PART> 33= C<CONSTANT EXPRESSTION>) 
<ARRAY IDENTIFIER> 3:2 <IDENTIFIER> 

<ARRAY BOUNO> 33= C<CONSTANT EXPRESSTON>) 


The paged array declaration allows the user to segment arraySse 
The <ELEMENTS“PER@PAGE PART> specifies the number of array 
elements contained in gach segment. For example: 


PAGED(64) AC4996) BITC1), 


1s an array of 4096» lebit elements» Segmented into 64=s 
64-element segments. 


Restrictions: 


le Paged arrays ®May not be tndexed. 

Ce Paged arrays may not 02 part of a structure. 

36 Paged arrays may not be remapped. 

Le The number of elements per page must be a power of 2» 


and may not exceed 325768. 


5. The <ARRAY 30UND> may not exceed 656535 but the 
bounds may be subsequently increased to a maximum of 
16777215 by use of the GROW statement. 


aaa ad 


fick ha aie 
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DYNAMIC DECLARATIONS 


<DECLARE ELEMENT> :2= gael DYNAMIC <DYNAMIC COMPLEX 
a | | IDENTIFIER> <DYNAMIC 
TYPE PART> Ieee. 


<DYNAMIC COMPLEX | | 
IDENTIFIER> ::= <IDENTIFIER> 1 <ARRAY IDENTIFIER> 
<DYNAMIC SUBSCRIPT SDUNDS> | 
| PAGED <DYNAMIC ELEMENTS PER PAGE> | 
<ARRAY IDENTIFIER> oe 
<OYNAMIC SUBSCRIPT BOUNDS> 


<DYNAMIC ELEMENTS 
PER PAGE> s3s= (€(<EXPRESSION>) 


<DYNAMIC SUBSCRIPT 

| BOUNDS> ::= C<EXPRESSION>) 

| | 

<DYNAMIC TYPE PART> :t= = BIT <DYNAMIC FIELD SIZE> 

| | | 1! CHARACTER <DYNAMIC FIELD SIZE> 
| | «| FIXED | 


i <RECORD IDENTIFIER> 


<DYNAMIC FIELD SIZE> 2: C<EXPRESSION>) 


The dynamic dectare statement allows the user to declare simple 
data with a nonwStatic field Length and/or array bound. For 


example: 
: PROCEDURE ABX; | 
: DECLARE OYNAMIC X BITCA)s 
| where A will determine the length of Xe The value of the 


i <EXPRESSTON> appearing in the <DYNAMIC FIELD SIZE> is used to 

3 determine the number of bits or characters in the dectared data 
item. If X were an array» its bounds would be evaluated at run 
time as well. ' 3 
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Restrictions: 
le The variables used in the <DYNAMIC FIELD SIZE> must 


have been oreviousiy initialized. 


Ze Dynamics tay not appear on Lexic Level 02. 


Dynamic variables may be remapped» however a warning message will 
appear in the source tisting.e It 1s the orogrammer 's 
responsidility to ensure that a dynamic 1S not remapped larger 
than aitlowed. {f SFORMAL_CHECK is sets this remapping Length 
will be run time checked. 
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REFERENCE DECLARATIONS 


<DECLARE ELEMENT> ss= See ens REF > REFERENCE... 


<DECLARED REF> ::=  <SIMPLE IDENTIFIER> 
Pb C<SIMPLE IDENTIFIER LIST>) 


<SIMPLE IDENTIFIER LiST> ::= <SIMPLE IDENTIFIER> 
| <SIMPLE IDENTIFIER>» 
<SIMPLE IDENTIFIER LIST> 


Reference variables are used as pointers to data and their 


declaration does not atlocate data space. A reference variabte 
has a close anatog in a format parameter dectared VARYING. sucn 
a parameter has onty one type» lengths and address associated 


with it for each invocation of the procedure in which it is- 


declared» but it may be different for each invocation. The 
format parameter 1s bound (to the actuat parameter) by the 
procedure call mechanisa. A reference variable is an extension 
of this idea because it may be declared anywhere other variables 
may be dectared and may be rebound at any time using a statement 
known as the reference assignment statement or REFER statement. 
This statement binds the reference variable to a new referente A 
few other SDL statements may change the referent of a reference 
variable also» but not ts any arbitrary address generator as does 
the REFER statemant. 
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RECORD REFERENCE DECLARATIONS 


<DECLARE ELEMENT> <::= eee ISDECLARED RECORD REF> REFERENCE] ..~ 


<DECLARED RECORD REF> = <SIMPLE I[DENTIFIER> 


<RECORD ITDENTIFIER> 


RECORD REFERENCE VARIABLES 


In some case@Se Storage ts not to be directly allocated for a 
records but a certain area of an array or large string is. known 
to have the format specified by a recorde This is the case in 
which indexing ts applied currently. Record reference variables 
are designed to replace this use of indexing. 


A record reference variable 1s declared» say for record 
DESCRIPTOR» as 


CECLARE DR DESCRIPTOR REFERENCE; 


Record reference variables are assigned with a REFER statement 
like ordinary reference variables» but they may be written in 
other statements as though they were structure names» 12e@e» they 


may have field qualifiers attached with the dot notation. Such 
an access subfields the current memory area described by the 
reference variable according to the record specificatione For 
examples 


REFER DOR TO SUBBITCMYAREA» 100.5 48); 
X 3s= OR.LEN> 


assigns X to bits 108 through 124 of the string MYAREA. 


Ail restrictions which apoly to normal reference variables are 
applicable to record reference variables as well. Record 
reference variables may not be used in the REDUCE statement. 
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<FILE DECLARATION 
STATEMENT> :7= 


<FILE DECLARE 
ELEMENT LIST> 335 


<FILE DECLARE ELEMENT> 
<FILE IDENTIFIER> ss= 


<FILE ATTRIGUTE PART> 
<FILE ATTRIBUTE LIST> 


<FILE ATTRIBUTE> :s= 


a Ra ak Rl at ce niles deca ee Sa er ci i BS A dl coe ema Rad 


FILE <FILE DECLARE ELEMENT LIST> 
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<FILE DECLARE ELEMENT> 
<FILE DECLARE ELEMENT>». 
<FILE DECLARE ELEMENT LIST> 


<FILE IDENTIFIER><FILE ATTRIBUTE PART> 


<IDENTIFIER> 


<ENPTY> 


(<FILE ATTRIBUTE LIST>) 


<FILE ATTRIBUTE> , 
<FILE ATTRIBUTE>» <FILE ATTRIBUTE LIST> 


<LABEL PART> 

<DEVICE PART> 

<MQODE PART> 

<BUFFERS PART> | 
<VARIABLE RECORD PART> 
<LOCK PART> 


<SAVE FACTOR PART> ran 
<RECORD SPECIFICATION PART> GD 


<REEL NUMBER PART>. 

<DISK FILE DESCRIPTION PART> 
<PACK"ID PART> © 

<GPEN OPTION PART> 
<ALL_AREAS_AT_OPEN PART> 
<AREA_BY_CYLINDER PART> 
<EU_LASSIGNMENT PART> 

<MULTI_ PACK PART> 

<USE_ INPUT_ BLOCK ING PART> 
<END_OF_PAGE PART> 
<REMOTE_KEY PART> 
<NUMBER_OF_STATIONS PART> 
<FILE TYPE PART> 

<WORK FILE PART> 

<LABEL TYPE PART> 

<INVALID CHARACTER REPORTING PART> 
<MONITOR SPECIFICATION PART> 
<SERIAL NUMBER PART> 
<GPTIOQNAL FILE PART> 

<TAPE LABEL PART> 

<EXCEPTION MASK PART> 
<TRANSLATE PART> | 
<USER NAMED BACKUP PART> 
<PROTECTION PART> 
<PROTECTION_IO PART> 
<HOST_NAME PART> 
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Alt attributes are optional>,» as the above syntax indicates. 


Default status witt automaticaliy be set for omitted attributes 
as follows: 


SYNTAX: <LABEL PART> ss= LABEL = 
: <FILE IDENTIFICATION PART> 


<FILE IDENTIFICATION PART> 23:= <MULTI@“FILE IDENTIFICATIOGN> 
| i <MHULTIe“F ILE 
IDENTIFICATION> 
<FILE IDENTIFICATION> 
<MULTI“FILE IDENTIFICATION> *::= <CHARACTER STRING> 


<FILE IDENTIFICATION> 33= <CHARACTER STRING> 


wheres 


<FILE IDENTIFIER> is a file or program tdentifier 
by which the progran identifies the file. 


and: 
<MULTIeF ILE IDENTIFICATION> and <FILE 
IDENTIFICATION> are nane or contents of 
identification field on file tabel or Disk 


Directory by which the system identifies the file. 


FORMATS: LABEL = “"NAME_1™" / *"NAME_ 2” 
or 
LABEL = "NAME_1" 
Examples: 


FILE INV_DATA_1 CLABEL = "RCOD_TAPE™ / “FILE_1")> 


Note: The system will use onty the first ten characters 
of the “NAME”. 


DEFAULT If LASELCS) is Care) not specified» the INTERNAL FILE 
NAME» ie@es <FILE IDENTIFIER>» 185 moved to <MULTI*FILE 
IDENTIFICATION>» and blanks are moved toa <FILE 
IDENTIFICATION> in the FPB CFILE PARAMETER BLOCK). 


“5S=21 


SYNTAX: <DEVICE PART> %3= DEVICE = <DEVICE SPECIFIER> 
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“DEVICE SPECIFIER> ¢::= 


<ACCESS MODE> : 
<DEVICE OPTION> 


<BACKUP OPTION> s:= 
<BACKUP SPECIFIER> ::= 


<SPECIAL FORMS OPTION> 3:s 


<REMOTE OPTION> ss 


<QUEUE SIZE> s:s= 


<QUEUE OPTION> ss= 


BA een os ER Ene oe Sa ete noma Ronen terns ems et ri eo Ser Osean i MeN cer ea A FAR an A ESM ne BEAR et BT POT Ti i Ee a PEE ge tt CE TATA IAB oc mentee Mon 00 
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TAPE 


READER_SGRTER 
CASSETTE : 
REMOTE C<QUEVE SIZE>) <REMOTE 
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TAPE_7 
TAPE_9 

TAPE_PE 

TAPE_NRZ 

DISK <ACCESS MODE> 

DISK_PACK <ACCESS MODE> 
DISK_FILE <ACCESS MODE> 
DISK_PACK_CENTURY <ACCESS MODE> 
DISK_PACK_CAELUS <ACCESS MQDE> 
CARD 

CARD_READER | 

CARD_PUNCH <DEVICE OPTION> 
PRINTER <DEVICE OPTION> 

PUNCH <DEVICE OPTION> 
PAPER_TAPE_PUNCH 

<DEVICE OPTION> 
DATA_RECORDER_80 
READER_PUNCH_PRINTER 

<DEVICE OPTION> 

PUNCH _PRINTER <DEVICE OPTION> 
READER_96 

PAPER_TAPE_READER 
SORTER_READER 


OPTION> | 
QUEUE C(<QUEUE SIZE>) 
<QUEUE OPTIOGN> 


<EMPTY> 1 SERIAL | RANDOM 
<EMPTY> 

<BACKUP OPTION> 

<SPECIAL FORMS OPTION> 
<SPECIAL FORMS OPTION> 
<BACKUP OPTION> 


<BACKUP SPECIFIER> 

OR <BACKUP SPECIFIER> 
NO BACKUP 

BACKUP ! BACKUP TAPE 


BACKUP DISK 


FORMS 


<EMPTY> 1 FAMILY 1 WITH HEADERS 
FAMILY WITH HEADERS 


<NUMBER> 


<EMPTY> 
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1! FAMILY C<FAMILY SIZE>) 


<FAMILY SIZE> ::= <NUMBER> 


FORMAT: DEVICE = CARD 
CARD_READER 
TAPE 
TAPE_7 
TAPE_9 
TAPE_PE 
TAPE_NRZ 
zx DISK 
* OLSK_PACK 
kx OISK_FILE 
#* DISK _PACK_CENTURY 
DISK_PACK_CAELUS 
CARD_PUNCH 
PRINTER 
PRINTER FORMS 
PUNCH 
PUNCH FORMS 
PAPER_TAPE_PUNCH 
PAPER_TAPE_PUNCH FORMS 
DATA_RECORDER_80 © 
READER_PUNCH_PRINTER 
READER_PUNCH_PRINTER FORMS 
PUNCH PRINTER 
PUNCH PRINTER FORMS 
READER_96 
PAPER_TAPE_READER 
SORTER_READER 
READER_SORTER 
CASSETTE 
see REMOTE (<QUEUE SIZE>) 
exe QUEUE (<QUEUE SIZE>) 


* ee & & ee he he eR HH H 


te may or may not be followed by any sitngle option below: 


BACKUP 

BACKUP TAPE 
BACKUP OISK 

OR BACKUP 

GR BACKUP TAPE 
OR BACKUP DISK 
NO BACKUP | 


Note: See <USER NAMED BACKUP PART> for more on backup. 


k*e may or may not be followed by any single optian 
below: 
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DEFAULT: 


SYNTAX3 


FORMAT s 


DEFAULT: 


SYNTAX: 


FORMAT: 


DEFAULT: 


SYNTAX: 


FORMAT: 


DEFAULT:= 
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SERIAL 
- RANDOM 


«*e* may or may not be followed by options Spe tesoee to 
this “device” See syntax abovee 


TAPE 

PRINTER BACKUP 

PRINTER FORMS BACKUP TAPE 
REMOTEC5) WITH HEADERS 


Examples: DEVICE 
DEVICE 
DEVICE 
DEVICE 


louweuow 


In the absence of any specification» disk wilt be 
assumed by the compiler. | 


<MODE PART> 3:3= MODE = <MODE SPECIFIER> 


<MODE SPECIFIER> ss= <FILE PARITY PART> 


1 <TRANSLATION PART> 


<FILE PARITY PART> :s= O00 4! EVEN 


<TRANSLATION PART> :3= = EBCDIC 1 ASCII i BCL 1 BINARY 
MODE = BCL LY 
MODE = ASCII 
MODE = EVEN 


Default is odd or EBCDIC>» whichever its applicabie. 


<BUFFERS PART> s3= BUFFERS = 
<NUMBER OF BUFFERS> 


<NUMBER OF BUFFERS> 33= <NUMBER> 
BUFFERS = NUMBER 


If not specified» buffers will be set to 1 in the FPB. 


<VARIABLE RECORD PART> ::= VARIABLE 
VARIABLE 


Not variable» i1.e¢e9 fixed"size recordse 
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SYNTAX: <LOCK PART> <:3= LOCK 

FORMAT: LOCK 


DEFAULT:= LOCK is not set. 


SYNTAX: <SAVE FACTOR PART> s3= SAVE = <SAVE FACTOR> 
<SAVE FACTOR> 33s <NUMBER> 
FORMAT: SAVE = NUMBER Cof days to save file) 


DEFAULT: If not specified» the SAVE specifier wilt be set to 
30 in the FPB. 


SYNTAX: <RECORD SPECIFICATION 


PART> it= RECORDS = <RECORD SIZE 
SPECIF LER> 
7 <¢RECORD SIZE SPECIFIER> ::= <PHYSICAL RECORD SIZE> 
( | <LOGICAL RECORD SIZE> 
oe <SLASH> 


<LOGICAL RECORDS PER 
PHYSICAL RECORD> 


<PHYSICAL RECORD SIZE> 33= <NUMBER> 


<LOGICAL RECORD SIZE> :3= <NUMBER> 

<LOGICAL RECORDS PER 

PHYSICAL RECORD> ::= <NUMBER> 
FORMAT: RECORDS = NUMBER 

RECORDS = NUMBER / NUMBER 


Notes: <PHYSICAL RECORD SIZE> indicates the number of 
characters per blocks <LOGICAL RECORD SIZE>» the number 
of characters per record. 


Example: 


1200 


RECORDS 
or 
RECORDS = 120 / 10 


DEFAULT: In the absence of record specificationss unblocked records 


~_— 
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ee 
> son 


ae! the following lengths will be assumed. 


Di sk | 180 bytes 


Tape | | 80 bytes | 
Any paper tape configuration 80 bytes 
Any 96 column card configuration | 96 bytes 
Atl remaining card configurations 89 bytes 
Any printer configuration 3132 bytes 
Ali others a 72 bytes 
SYNTAX: <REEL NUMBER PART> 33:= REEL = <REEL NUMBER> 
<REEL NUMBER> =2= <NUMBER> 
FORMAT: REEL = 2 
DEFAULT: The FPB assumes #1 1n the absence of any specification. 


SYNTAX: <CISK FILE DESCRIPTION 


PART> 3: | AREAS = <NUMBER OF AREAS> ( © 
<SLASH> | - ‘ee / 
<PHYSICAL RECORDS PER AREA> 

<NUMBER OF AREAS> t= <NUMBER> 

<PHYSICAL RECORDS 

PER AREA> 33= | <NUMBER> 

Format: Areas = # of Areas / #of Blocks Per Area 


Examples Areas = 20 / 80 


Notes <PHYSICAL RECORDS PER AREA> indicates the 
number of blocks per area. This attribute is 
applicabie for disk files onty. 


DEFAULT: If areas are not specified» the FPB wilt assume 25 
Areas with 100 Blocks Per Area. If the record 
specifications have been given the compiter wilt 
compute the number of Records Per Areéde Howevers if 
record specifications are omitted» the FPB will assume 
100 records per area. In either case then» whether 
areas are specified or not» the compiier will have 
computed the number of records for insertion in the 
FPB. 
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SYNTAX: | <PACK_ID PART> ::= 
: <PACK 
| IDENTIFICATION> 3:= 
| | 
| FORMAT: PACK_ID = "NAME” 
Note: The System 


characters o 


DEFAULT: If absent» <PACK 
bianks in the FPBe 


SYNTAX: <OPEN OPT IOQN>::= 


<OPEN OPTION 
ATTRIBUTE LIST>::= 


<OPEN ATTRISUTE> 33 
FORMAT: CPEN_OPTION = ATTRIS 


Examples OQOPEN_OPTIOQ 


Notes 
<OPEN STATEMENT> ma 
<OPEN ATTRIBUTE>s i 
separated by slashe 
DEFAULTs If absent» the 
fotlows: 
If <DEVICE> is: <Q 
CARD 
| PRINTER 
| PUNCH 
| DisK 
REMOTE 
TAPE 
QUEUE 


> iad fl 

COMPANY CONFIDENTIAL 
Bi1000 SDL (8NF Version) 
PeSe 2212 5405 CG) 


PACK_ID = 
<PACK IDENTIFICATION> 


<CHARACTER STRING> 


will use oanty the first ten 
f the “"NAME*™. | 


IDENTIFICATION> witt be set to 


OPEN_OPTIOQN= 
<OPEN OPTION ATTRIBUTE LIST> 


<OPEN ATTRIBUTE> 
| <OPEN ATTRIBUTE> <SLASH> 
<OPEN OPTION ATTRIBUTE LIST> 


SEE “OPEN STATEMENT" 
JTE / ATTRIBUTE. « . 


N = QUTPUT / NEW 


y be separated by commas» and the 
n the <QPEN OPTIODN> above are 
Se 


<OPEN ATTRISUTE>s will be set as 
PEN OPTIOQN> iss: 


INPUT 

QUTPUT 
QUTPUT 

INPUT 
INPUT/OUTPUT 
INPUT 
INPUT/OUTPUT 
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SYNTAX: | <ALL_AREAS_AT_OPEN PART> 2:= ALL_AREAS_AT_OPEN — 
~ FUNCTIONS if this option is sete disk space for each area will 
7 be allocated when the file is opened. If 


insufficient space is availanpler a SPQ message will 
indicate that there is no user disk. 


DEFAULT: Areas are created as needed. 


SYNTAX: <AREA_BY_CYLINDER PART> s2= AREA_BY_CYLINDER 


FUNCTIONS If this option is specified» each area witli be placed 
at the beginning of a cylinder. If there is no 
Cmore) space at the beginning of any cylinders a SPO 
message will tndicate that there is no user disk. 


DEFAULT: Areas are placed anywhere on disk. 


SYNTAX: <EU ASSIGNMENT PART> t= EU_SPECIAL = <NUMBER> 
| | EULINCREMENTED = <NUMBER> 


FUNCTION: The <NUMBER> specifies any integer 90 through 15. 
WEFULSPECIAL™ is applicable only with head-per-track 
disks and systems disk packs» and specifies the drive 
on which the file is to go. "EU_INCREMENTED™ 
specifies the disk drive on which the first area of a 
file 18 to gow Each subsequent area is placed on the 
next drive. If» with either options the necessary 
E-Ue. 3S not availablersy E-Uek O wiil be taken. 


DEFAULT: Space for files and areas is allocated anywhere on 
disk. 
SYNTAX: <MULTI PACK PART>:3= MULTI_PACK 


FUNCTION: If this option is specified» the entire file may be 
| put onto several disk packse | | 


DEFAULT: The file will be piaced on one disk pack. 


SYNTAX: <USE_LINPUT_BLOCKING  ~ | 
PART> 33= USE_INPUT_BLOCKING 


aod 
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This 
files. 
$1ize 


FUNCTIONS option applies 


to input disk~» 
If specified for disk» 
specifications will be taken from the Disk File 


Sa 
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tape» or card 
the record and block 


Header and the user's specifications will be tcnored. 


If specified for tape» 
otherwise» 
card files» 


assumeds 


the 


8O0-col = 80 bytes 
96-col = 96 bytes 
BIN = 960 bits 


DEFAULTS: 
declaration. Those 


default status. 


SYNTAX: <END_OF PAGE PART> s:s= 

FUNCTION: 
STATEMENT> to 
printer file. 
SEQUENCE” for details. 


DEFAULT: No automatic paging action 


SYNTAX: <REMOTE_KEY PART>:3= 

This atrribute is used 
WREMOTE™". When present» 
be present on ae read 
missinge 
key is given below. 
decimal characters. 


FUNCTION: 


The 


aruntima2 error occurse 
following 


The record and block size are as stated 1n 
options 


This attribute will cause the <EQF PART> of a 
be executed at the end of a page on a 
Refer to "WRITE 


only 
it indicates that a key may 
or write to that file. If 
then no key can be used. 
Each field of the key is in 
key 1S a 


the tape must be labeled, 


If specified for 
record lengths witt be 


the file 


omitted are set to 


END_OF_PAGE_ACTION 


<WRITE 


STATEMENT™ and "ON 


REMOTE_KEY 


with files of type 


The format of the 


total of 19 


characters formatted as foltows: 


Station Number 
Message Length Cbyte count) 
Message Type (must be *000*") 


DEFAULTS: No remote key 


SYNTAX: <NUMBER_OF_STATIONS PART>s=- 


3 characters 
4 characters 
3 characters 


NUMBER_LOF_STATIONS =: <NUMBER> 


EE SEE SSE AT ET Ea ETO MEARE ASL Stan, Coal iret ee ean 
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DEFAULTS: 


SYNTAX: | 


FUNCTIONS 


DEFAULT: | 


SYNTAX: 


DEFAULT: 


COMPUTER SYSTEMS GROUP | _ B1000 SDL (BNF Version) 
SANTA BARBARA PLANT = =— PAS. 2212 5405 (G) 
FUNCTION: This attribute is used only with files of type 


"REMOTE". When presents» it specifies the maximum 
number of stations that can be attached to this file. 


NUMBER_OF_STATIONS=1 


<FILE TYPE PART>3:= FILE_TYPE=<FILE TYPE SPECIFIER> 


<FILE TYPE SPECIFIER>::= DATA | INTERPRETER 1! CODE 
| INTRINSIC § PSR_DECK 


This attribute altows SDL programs to specify the 
type of the files they are creating. In particular» 
the compilers will use the type “*CODE™ for their 
codefiles. : . 


FILE_TYPE = DATA 


<WORK FILE PART>ss= | WORK_F ILE 
—_ 
FUNC TIONS This attribute causes the job number to be t1ncluded ee 
| as part of the file identifier. 
Not a workfite 
<LABEL TYPE PART>?¢:= —s LABEL_TYPE=<LABEL TYPE SPECIFIER> 


SYNTAX: 


<LABEL TYPE SPECIFIER>:s= UNLABELED I BURROUGHS 


FUNCTIONS This attribute allows the Label type to be specified. 


DEFAULT: 


SYNTAX: 


FUNCTION: Invatid characters occurring in a print file will be 


ANSII STANDARD LABEL 


<INV_CHAR_REPORTING PART>::= INVALID _CHARACTERS= 
<INV_CHAR_REPORT TYPE PART> 


<INV_CHAR_. | 
REPORT TYPE PART> s3= _ O'i11 2: 3 


reported on the SPQ to the computer operators as 
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specified: 


VALUE TYPE 


0 Report all lines containing invalid 
characters. 
1 Report all lines containing invalid 
characters and then stop program. 
2 Report once that the file contains 
invalid characters. 
3 Do not report that the file 
contains invalid characters. 
DEFAULT: 0 
SYNTAX: <MONITOR SPEC PART> 33: MONITOR_INPUT_FILE 


1 MONITOR _ QUTPUT_FILE 
FUNCTIONS: See Appendix VIITS SDL MONITORING FACILITY 


DEFAULT Not present 


<NUMBER> 


SYNTAX: <SERIAL NUMBER PART>? i: SERTAL 
<CHARACTER STRING> 


| SERTAL 


“ou 


FUNCTIONS: The file will be opened on the output media with the 
specified seriat number. 


DEFAULT Not present 


SYNTAX: <OPTIONAL_FILE_PART> 3:3 OPTIONAL 


FUNCTIONS If this option is used on an input file» then the 
file may be missing and the operator may respond with 
the OF message to the FILE MISSING message. This 
will result in the execution of the ON EOF branch on 
the execution of the first read of the file. 


DEFAULT: Reset 


SS ee a ae TT Oe ee eee Pr a ae te sia Ee ee a aia ai ER ares ci een, ae Aa a i tala Ci aa eae Ble Rete ai FS ae A Ae Ll a AN 
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SYNTAX: <EXCEPTION MASK PART> st= EXCEPTION _MASK = <BIT STRING> 

; f q : % 
FUNCTION: The exception wae specifies. the types of ‘wecepeieus 


that the program is willing to handte for this 
particutar file. See the 81700 MCP Manual ffor a 
description of the bit assignment within the bit 
stringe Note that this string should generate a 
24-bit value. a , | 


DEFAULT: a000000a 


SYNTAX: <TRANSLATE PART> ¢3= - TRANSLATE = <CHARACTER STRING> 
FUNCTION: The MCP wiail do a soft translation on the file using 


<CHARACTER STRING> as the filtewid for the translate 
table file. The multi-filerid for the translate 
table file will be “TRANSLATE. 


DEFAULT: DEFAULT: No translation.e 


an 


SYNTAX: <USER NAMED BACKUP PART>::= USER_NAMED_BACKUP ? “ A 
| | aed 
FUNCTIONS If the file goes to backup» its name wili be its 
| given external name rather than a system selected 
name. 
DEFAULT: System selects backup file names. 
SYNTAX: <PROTECTION PART>:3= PROTECTION <PROTECTIGN TYPE PART> 


= < 
<PROTECTION TYPE PART>::= 90 | 1422 ~3 


FUNCTION: CSee MCP Control Syntax proeuct specification in File 
| Attribute description.) | 


SYNTAX?  <PROTECTION_IO_PART>::=  PROTECTION_IO0 = <PROTECTION_I0 TYPE 
PART> 
<PROTECTION_IO TYPE PART2:= 01114213 


FUNCTION: $(€(See MCP Control Syntax product specification in File 
Attribute description.) 
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SYNTAX: | <HOST_NAME PART>:= HOST_NAME = <CHARACTER STRING> 


FUNCTIONS specifies the name of the host system for this file. 


DEFAULT=: No host specified. 
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“SWITCH EILE DECLARATIONS — 


<SWITCH FILE | : | 
DECLARATION STATEMENT>:2= SWITCH_FILE <SWITCH FILE. 
| DECLARE ELEMENT LIST> 


<SWITCH FILE | 4 
DECLARE ELEMENT LIST>2:= <SWITCH FILE DECLARE ELEMENT> 
| | | 1! <SWITCH FILE DECLARE ELEMENT>> 
«SWITCH FILE DECLARE ELEMENT LIST> 


<SWITCH FILE | | - } a 
DECLARE ELEMENT> :s= <SWITCH FILE IDENTIFIER> C<FILE © 
: IDENTIFIER LIST>) 


<SWITCH FILE IDENTIFIER>ss= <IDENTIFIER> 


<FILE [IDENTIFIER LIST>:ss= <FILE IDENTIFIER> 
| <FILE IDENTIFIER>» <FILE IDENTIFIER LIST> 


A switch file declaration specifies the elements of a “"CASE™> 
these elements being files. A subscripted <SWITCH FILE 
IDENTIFIER> may be used anywhere that a <FILE IQDENTIFIER> may be 
useds If there are N files in the <FILE IDENTIFIER LIST>» then 
the subscript must range from 9 to Nie The value of the 
subscript selects one of the N files in the List» depending upon 
ordinal position (the files in the <FILE IDENTIFIER LiIST> are 
numbered from Left to right» begining with 0). If alt fites in 
the <FILE ICENTIFIER LIST> are of type *TREMOTE*%» then the switch 
file identifier is of type “REMOTE*. 
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The following exampte copies card images from cards» tape» or 
disk to cards» printers» tape» or disk: 


FILE 
CARDS COEVICE=CARD) 
eTAPEICDEVICE=TAPE»USE_INPUT_BLOCKING) 
PDISKICDEVICE=DISK-USE_INPUT_SLOCKING) 
? 

FILE 
PUNCHCCEVICE=PUNCH) 
eLINECDEVICE=PRINTER) 
eTAPEQCOEVICE=TAPE»RECORDS=30/4) 
eOISKOCDEVICE=DISK»RECORDS=80/9) 


} 
SWITCH_FILE 
INPUTCCARDS»TAPET-OILSKI) 
sQUTPUTCPUNCH>LINE»TAPEQ-OISKO) 
Dd 
DECLARE 
INPUT_TYPE 31TC24) 
sQUTPUT_TYPE BITC24) 
PBUFFER CHARACTERC80) 


Pd 
DISPLAY “seaee INPUT TYPES 
ACCEPT INPUT_TYPES 
INPUT_TYPEIBINARYCSUBSTRCINPUT_TYPE»0-1)) MOD 33 
DISPLAY “aeeee QUTPUT TYPE"; 
ACCEPT QUTPUT_TYPES 
OUTPUT_TYPEIBINARYCSUBSTRCOUTPUT_TYPE»051)) MOD 43 
OPEN INPUTCINPUT_TYPE) INPUT; 
OPEN OQUTPUTCOUTPUT_TYPE) OUTPUT» NEWS 
DO FOREVER; | 

READ INPUTCINPUT_TYPE) CBUFFER)>3 

ON EOF UNDO; 

WRITE QUTPUTCOUTPUT_TYPE) (BUFFER); 
END3 
CLOSE GUTPUTCOUTPUT_TYPE) WITH LOCKS 
STOPS 
FINI 
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DEFINE SIAIEMENT 


oe 
oe 
iT 


<DECLARATION STATEMENT> ose I<DEFINE STATEMENT>3 1.04 
<DEFINE STATEMENT> z= DEFINE <DEFINE ELEMENT> 
1 <DEFINE STATEMENT>» 
<DEFINE ELEMENT> 


<DEFINE ELEMENT> s3= <DEFINE IDENTIFIER> 
<FORMAL PARAMETER PART> 
AS <DEFINE STRING> 


<DEFINE ICENTIFIER> ss= <IDENTIFIER> 
C<FORMAL PARAMETER LIST>) 


1 I<FORMAL PARAMETER LIST>] 
| <EMPTY> 


<FORMAL PARAMETER PART> 3:3 


<FORMAL PARAMETER LIST> s2= <FORMAL PARAMETER> 
: | | <FORMAL PARAMETER>>» 
<FORMAL PARAMETER LIST> 
<FORMAL PARAMETER> 32> <IDENTIFIER> 


<DEFINE STRING> 33s : #<WELL FORMED CONSTRUCTO# 


es 
i 


<EMPTY> 


1 <BASIC COMPONENT> | 
<WELL“F ORMED CONSTRUCT> 


<BASIC CONPONENT> sss <RESERVED WORD> | ZSEE APPENDIX 
<IDENTIFIER> 

<SPECIAL CHARACTER> 

<COMMENT STRING> 

<CONSTANT> 


The <DEFINE STATEMENT> assigns the text enclosed between the ‘"“#* 
signs following the reserved word AS to the <DEFINE IDENTIFIER>. 
Invocation of the <DEFINE IDENTIFIER> causes the text to reptace 
the identifiers» thereby providing a form of shorthand code. 


At declaration times the compiler iS unconcerned with the 


contents of the <DEFINE STRING>. However » when the <DEFINE 


IDENTIFIER> is invoked» the <WELL@*FORMED CONSTRUCT> must conform 
to the syntactical FEQUVESECHES of the statement containing the 
identifier. 
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There are two types of <DEFINE STATEMENT>s: Simple and 


Parametric» where the parameters are enclosed in parentheses or 
brackets following the <DEFINE IDENTIFIER>. Below are exaanples 
of both types: — 


DEFINE A AS #IF X>10 THEN PROCX#> 
CH AS #CHARACTER#€>» 
BC YsZ) AS #IF Y¥<Z THEN Ys=Z &#e 
CCM) AS & Xs=Ms> A &> 


Notice that <DEFINE STATEMENT>s may be factored» with commas 
separating each element. 


The <DEFINE IDENTIFIER> has scope in the same manner as any other 
identifier Cexcept for SEGMENT and DO“GROUP identifiers). 


Restrictions on the use of DEFINEs: 


Vw Reserved words may not be used as <DEFINE 
ITOENTIFIER>s» however » an identifier may define a 
reserved word. 


Ze "Speciail™ words may oe used as <DEFINE IDENTIFIER>Ss> 
however » their special significance is lost within 
the the scope of that <DEFINE STATEMENT>. 


5% <DEFINE INVOCATIOQN>s may appear within a <WELL “FORMED 
CONSTRUCT>>» 1Te@er a “DEFINE [DOENTIFIER> may appear 
Within another <DEFINE ELEMENT>. <DEFINE 
IDENTIFIER>s may be nested no more than 12 Levets 
deep. : 


4. The identifiers tisted below are never looked up in 
the List of define names. 


DECLARE» DEFINE» PROCEDURE» and FORMAL IDENTIFIERS» 
SEGMENT and DO-GROUP IDENTIFIERS» 

FILE» OPEN» and CLOSE ATTRIBUTES. 

<FILE ATTRISUTE STATEMENT> attribute names 


"ON* condition names CEOF» EXCEPTION» FILE_MISSING» 
Q FULL» G_EMPTY»NO_INPUT» FILE_LOCKED» INCOMPLETE_I9)_ 


"ACCEPT™/"DISPLAY" specifiers: END_OF_TEXT 
and CRUNCHED. 
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| if one of these identifiers happens to be the same as a <DEFINE 
IDENTIFIER>» no substitution occurs. The <WELL“FORMED CONSTRUCT> 


of the define wiitl not replace the identifier. Note» however> 
that duplicate identifiers may not appear within the same texic 
fevels an error message cose use | 


5. There may be no more than eight <FORMAL P ARAMETER>s 
in a <FORMAL PARAMETER LIST>. 


6. Refer to Appendix VW for rules concerning conditional 
inclusion cards within defines. 


The foltowing syntax illustrates the format used in- the 
invocation of a <DEFINE I[DENTEIFIER>: | 


<DEFINE INVOCATION> s3= <SIMPLE DEFINE IDENTIFIER> 
I <PARAMETRIC DEFINE IDENTIFIER> 
(<DEFINE ACTUAL PARAMETER LIST>) 
f <PARAMETRIC DEFINE IDENTIFIER> 


C<DEFINE ACTUAL PARAMETER LIST>] ~~ | 


<SIMPLE DEFINE | | | 
= <DEFINE IOENTIFIER> 


IDENTIFIER> 
<PARAMETRIC 
DEFINE IDENTIFIER> s2= <DEFINE IDENTIFIER> 


<DEFINE ACTUAL 
PARAMETER LIST> s:= <DEFINE ACTUAL PARAMETER> 
| 1 <DEFINE ACTUAL PARAMETER>> 
<DEFINE ACTUAL PARAMETER LIST> 


<DEFINE ACTUAL 
PARAMETER> i23= <WELL*FORMED CONSTRUCT> 


A <DEFINE INVOCATION> may occur anywhere within an SDL prograa 
except in the cases Listed above in Restriction 4. As indicated 
by the above BNF» the actual parameters of a define are not 
confined to constants and variables but may have a wide range of 
constructs. For example» the <DEFINE STATEMENT> mentioned above: 


DEFINE A AS #1F X>10 THEN PROCKX#> 
CH AS #CHARACTER#> 
BCYsZ) AS #IF Y¥<Z THEN Ys=Z #» 
CCM) AS # Xs=Ms A &; 
might be invoked as follows: 


CCZsBUMP ICR»S])> 


which expands to: 


ft - , 
. 
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X3s=Z> BUMP ICR»SIs IF X>10 THEN PROCX; 


The following restrictions apply to the use of the <DEFINE 


INVOCATION>: 
le No ungaired bracketing symbols» i1-.@es €) or C]» may 
appear e 
Ce Within a <DEFINE ACTUAL PARAMETER LIST>» commas not 


enclosed within paired bracketing symbols act to 
delimit the <DEFINE ACTUAL PARAMETER>s. Therefore a 
<WELL@*FORMED CONSTRUCT> not enclosed in bracketing 
symbols may not contain commase For example: 


DEFINE XCAeB) AS #2 ACB) #5 
and invoked as: 
S=XCMe QeReoS)> 
would result in the error message: 
DEFINE INVOCATION HAS TOO MANY PARAMETERS 
Proper invocation is possible by 


removing the parens from the define 
and placing them in the invocation: 


DEFINE X€Ae3) AS # AB Fs 
S=XCMeCQeReS) dD» 


Se Comments are allowed but will be deleted from the 
actual parameter text. 
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EQRWARD DECLARATION | 


<DECLARATION STATEMENT> ::= 
<FORWARD DECLARATION> ::= 


<COMPOUND PROCEDURE 
HEAD> s3= 


<PROCE DURE HEAD> ss= 
<BASIC PROCEDURE HEAD> 3:= 


<PROCEDURE NAME> $3= 
<PROCEDURE IDENTIFIER> 3s= 
<TYPED PROCEDURE 
IDENTIFIER> 2:= 


<NON@“TYPED PROCEDURE 
IDENTIFIER> ss= 


<FORMAL PARAMETER PART> 35 


<FORMAL PARAMETER LIST> 332 


<FORMAL PARAMETER> 3:= 


ee 


<PROCEDURE TYPE PART> ss: 
<FORMAL TYPE PART> sss 


<TYPE PART> :t= 
<TYPE VARYING PART> ::= 


<FORMAL PARAMETER DECLA= 
RATION STATEMENT LIST> 232 
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++ I<FORWARD DECLARATION> 1 oe 


FORWARD <COMPOUND PROCEDURE HEAD> 


<PROCE DURE HEAD> 
<FORMAL PARAMETER DECLARATION 
STATEMENT LIsT> 


<BASIC PROCEDURE HEAD> 
<PROCEDURE TYPE PART>; 


<PROCEDURE NAME> 
<FORMAL PARAMETER PART> 


PROCEDURE <PROCECURE [DENTIFIER> 
<TYPED PROCEDURE IDENTIFIER> 
<NON@“TYPED PROCEOURE IDENT IFIER> 


<IDENTIFIER> 


Ree ai 


<IDENTIFIER> : a, 


<EMPTY> 
C<FORMAL PARAMETER LIST>) 


<FORMAL PARAMETER> 
<FORHAL PARAMETER>» 
<FORMAL PARAMETER LIST> 


<IDENTIF IER> 


<EMPTY> 


<FORMAL TYPE PART> 


<TYPE PART> 
<TYPE VARYING PART> 


FIXED 
CHARACTER <FIELD SIZE> 
BIT <FIELD SIZE> 7 


VARYING 
BIT VARYING 
CHARACTER VARYING 


<EMPTY> 
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I <FORMAL PARAMETER DECLARATION STATEMENT>; 


<FORMAL PARAMETER DECLARATION 
STATEMENT LIST> 


<FORMAL PARAMETER 
DECLARATION STATEMENT> 335 FORMAL <FORMAL ELEMENT> 
1 FORMAL_VALUE <FQORMAL ELEMENT > 


i <FORMAL PARAMETER DECLARATION STATEMENT>> 


<FORMAL ELEMENT> 


<FORMAL ELEMENT> <:3= C<FOQORMAL IDENTIFIER LIST>) 
<FORMAL TYPE PART> 
{ <FORMAL IDENTIFTIER> 
<FORMAL TYPE PART> 
<FORMAL INDENTIFIER LIST> ss= <FORMAL IDENTIFIER> 
i <FORMAL IDENTIFIER LIST>» 
<FORMAL IDENTIFIER> 


<FORMAL IDENTIFIER> <32= <COMPLEX IDENTIFIER> 
1 <VARYING ARRAY SPECIFIER> 


<COMPLEX IDENTIFIER> <s2= <SIMPLE IDENTIFIER> 
f <ARRAY IDENTIFIER> 
<ARRAY BQUND> 


<VARYING ARRAY SPECIFIER> :3= <ARRAY IEDENTIFTIER> 
<VARYING ARRAY 80UND> 


<VARYING ARRAY BQUND> i3= (#) 


Before a procedure may be called» SDL specifies that it must have 


been previously declared. A contradiction arises when one 
procedure calls another procedure which in turn references the 
firste In this case» whichever procedure appears first must 


necessarily contain at least one reference to the second which 
has not yet been declared. 


The <FORWAROD OECLARATION> allows the programmer to use recursive 
references by providing a temporary procedure declaration. The 
<FORWARD DECLARATION>» however» does not eliminate the need for 
the normal procedure dectaration which must follow in the program 
and-must have the same scope. 


The parameters mentioned in the <FORWARD DECLARATION> must be the 
same formal parameters Cin type and size» but not tin name) that 
the procedure itself wiil declare. 
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Procedures may be either typed or nonwetyped depending on their 


uses» .§ Format data types may either be static or varying» again 


depending on the progragw. These specifications will be discussed 
in the section entitled "THE PROCEDURE STATEMENT™. 


The foilowing examples iilustrate the use of the <FORWARD 
DE CLARATIQN>: 


FORWARD #PROCEDURE X CHARACTER VARYINGS 
FORWARD PROCEDURE J(KeL»M)3 

FORMAL KC®#) BIT VARYING» 

LC15) CHARACTER (8)> 

M FIXED; 
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USE STATEMENT 


<USE STATEMENT> 33:5 USE C<SIMPLE IDENTIFIER LIST>) 
OF <DEFINE IDENTIFIER> 


<SIMPLE IDENTIFIER 
LIST> s:3= <SIMPLE IDENTIFIER> 

l <SIMPLE IDENTIFIER LIST>» <SIMPLE IDENTIFIER> 
<SIMPLE IQENTIFIER> <3= <IDENTIFTIER> 


<DEFINE I[TCENTIFIER> ss= <IDENTIFIER> 


The purpose of the <USE STATEMENT> is to allow the programmer to 
declare specific elements in a defined structure within § a 


procedure. By specifying only the desired elements» the Name 
Stack size is kept to a minimums and program maintenance 15 
simplified. The compiler wilt generate the structure using 


fillers and the specified elements. 


Tha following restrictions apply to the <USE STATEMENT>: 


( le It must appear within a procedure Cie@er» on a iexic 
ae level greater than 0). 
oe The referenced <DEFINE IDENTIFIER> must define one 
structured declare statement. 
36 The structure may not contain arrays. 
4e The outermost level of the structure COL) must be a 


"DUMMY REMAPS"”. 


EXAMPLE: 


DEFINE X AS # | 
DECLARE OL DUMMY REMAPS Ae % MIGHT ALSO REMAP BASE 
02 8 BIT(5)> 
03 Bi BIT(2)> 
03 82 BIT(3)> 


02 C CHARACTERC1O)» 
02 0D BITCL)>» 

O02 E FIXED» 

O02 F BITC24)#> 


PROCEQURE FIRST; 
USE CC»0) OF X> 


SOR Oe em cee nme meen me ane pene em em oe em Ber te ee “ 
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From the above <USE STATEMENT> the compiler aiit ugenseers the 
| following structure: se : | 


01 DUMMY REMAPS A>» 
O2 FILLER BITC5)>» 
O03 FILLER BIT(2)> 
O3 FILLER BITC3)»- 
O62 C CHARACTER(10)> 
02 OD BITC1)> 
O02 FILLER FIXED» 
O02 FILLER BIT(C24)> 


Note that filter was substituted for the group item B. This 
would normally generate &¢ syntax errors» and is ailowable onty in 
the <USE STATEMENT>. | 
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<PROCEDURE STATEMENT> <3: <PROCEDURE DEF INITION> 
| 1 <SEGMENT STATEMENT> 
<PROCEDURE STATEMENT> 


<PROCEDURE CEFINITION> ::= <COMPOUND PROCEDURE HEAD> 
<PROCEDURE BQDY> 


<SEGMENT STATEMENT>3: 3= SEE "THE SEGMENT STATEMENT™ 


<PROCEDURE BODY> :s= <OECLARATION STATEMENT LIST> 
| <PROCEDURE STATEMENT LIST> 
<PROCEDURE EXECUTABLE STATEMENT LIST> 
<PROCEDURE ENDING> 


Procedures are selfecontained functional units within an SOL 
program which may be accessed according to specific rules 
discussed under “BASIC STRUCTURE OF THE SDL PROGRAM". Procedures 
may be created by preceding seiftcontained statements with a 
<COMPOUND PROCEDURE HEAD>» and terminating it with a <PROCEDURE 
ENDING>. 


The <PROCEDURE DEFINITION> 1s composed of three basic parts: 
heading» bady» and endinge Identifiers declared in a procedure 
may be accessed only in the procedure in which they are declared» 
and 1n procedures nested within the declaring procedure. 


Procedures may be either “*TYPED"™ or "NON“TYPED”™. A "TYPED" 
procedure returns some value of the type specified in the 
procedure declaration to the expression where the procedure was 


invoked. See "VALUE VARIABLES™ for detaitis. A *NON@TYPED" 
procedure performs a function» does not return a vatuese and iis 
invoked in an <EXECUTE PROCEDURE STATEMENT>. See “EXECUTE 


PROCEDURE STATEMENT™. 
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The syntax for the procedure heading is: 


<COMPOUND PROCEDURE 
HEAD> 3: 


<PROCEDURE HEAD> 33= 
<BASIC PROCEDURE HEAD> 
<PROCEDURE NAME> :3= 
<PROCEDURE IDENTIFIER> 
<TYPED PROCEDURE 


IDENTIFIER> 335 


<NON“-TYPED PROCEDURE 
IDENTIFIER> ss 


<INTRINSIC IDENTIFIER> 
<TYPED INTRINSIC 
IDENTIFIER> :3= 


<NON@“TYPED INTRINSIC 
IDENTIFIER> s:3= 


<FORMAL PARAMETER PART> 


<FORMAL PARAMETER LIST 
<FORMAL PARAMETER> :3:= 
<PROCCEDURE TYPE PART> 

<FORMAL TYPE PART> ::= 


<TYPE PART> ::= 


2 
@ 


#e 


e 
se 


e 
e 


2) 


@ a 
oo“ 


iT) 


<PROCEDURE HEAD> 


<FORMAL PARAMETER DECLARATION 
STATEMENT LIST> 


<BASIC PROCEDURE HEAD> 
<PROCEDURE TYPE PART> 


<PROCEDURE NAME> 
<FORMAL PARAMETER PART> 


PROCEQOURE <PROCEDURE IDENTIFIER> 
INTRINSIC <INTRINSIC IDENTIFIER> 


<TYPED PROCEDURE IDENTIFIER> 
<NON“TYPED PROCEDURE ICENTIFIER> 


<IDENTIFIER> 


<ICENTIFIER> 
<TYPED INTRINSIC IDENTIFER> 
<NON@“TYPED INTRINSIC IDENTIFER> 


<IGENTIFIER> 


<IDENTIFIER> 


<EMPTY> 
C<FORMAL PARAMETER LIST>) 


<FORMAL PARAMETER> 
<FORMAL PARAMETER>>» 
<FORMAL PARAMETER LIST 
<IDENTIFIER> 


<EMPT Y> 
<FORMAL TYPE PART> 


<TYPE PART> 
<TYPE VARYING PART> 


FIXED 
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<FIELD SIZE> i:= 
<TYPE VARYING PART> 33= 


<FORMAL PARAMETER DECLA- 
RATION STATEMENT LIST> s3= 


<FORMAL PARAMETER 
DECLARATION STATEMENT> 3:= 


i 


<FGRMAL ELEMENT> 3:3 


<FORMAL IDENTIFIER 
LIST> :s= 


<FORMAL ICENTIFIER> 235 


<COMPLEX IDENTIFIER> s:s= 


<VARYING ARRAY 
SPECIFIER> :s= 


<VARYING ARRAY BOUND> s3= 


The procedure heading» 


the <PROCEDURE NAME>» 
<PROCEDURE TYPE PART>» 


> PESO NESE REECE EET A EIRRIMIT IAS SET pee TS Se 
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CHARACTER <FIELD SIZE> 
BIT <FIELD SIZE> 
REFERENCE 


C<CONSTANT EXPRESSTION>) 


VARYING 
BIT VARYING 
CHARACTER VARYING 


<EMPTY> 

<FORMAL PARAMETER DECLARATION STATEMENT 
LIST>> 

<FORMAL PARAMETER DECLARATION> 


FORMAL <FORMAL ELEMENT> 

FORMAL_VALUE <FORMAL ELEMENT> 

<FORMAL PARAMETER DECLARATION STATEMENT> >» 
<FORMAL ELEMENT> 


C<FORMAL IDENTIFIER LIST>) 
<FORMAL TYPE PART> 
<FORMAL IDENTIFIER> 
<FORMAL TYPE PART> 


<FORMAL IDENTIFIER> 
<FORMAL IDENTIFIER LIST>> 
<FORMAL IDENTIFIER> 


<COMPLEX IDENTIFIER> 
<VARYING ARRAY SPECIFIER> 


<SIMPLE IDENTIFIER> 


<ARRAY I[DENTIF IER> 
<ARRAY 3OUND> 


<ARRAY IDENTIFIER> 
<VARYING ARRAY BOQUND> 


(#) 


Te@ee» <COMPOUND PROCEDURE HEAD>» contains 
formal 
1 eG ep 
returned if the procedure is "TYPED”. 


Parameters (Cif any)» and the 
the field type of the value to be 
For example: 
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PROCEDURE X (MeN) FIXEDS 
FORMAL (M»N) VARYING? 


which corresponds to the following syntax: 


PROCEDURE <TYPED PROCEDURE IDENTIFIER> 
C<FORMAL PARAMETER>»<FORMAL PARAMETER>) 
<PROCEDURE TYPE PART>> 
FORMAL C<FORMAL IDENTIF IER>>» <F ORMAL TDENTIFIER>) 
<FORMAL TYPE PART>>; 


In this case» the vatue returned to the point of tinvocation 
should be fixed. There is» however» no check for this at compile 
timee If the control card option FORMAL_CHECK is present» the 
returned values wili be checked against the procedure type at run 
time. 


The "NON“TYPED™ procedure follows the same format except that the 
<PROCEDURE TYRE PART> is omitted since no value 1s returnede. For 
Instance: 


PROCEDURE A (JeKeL)s 
FORMAL J FIXEDs CKeL) BIT VARYINGS 


which syntactically its the same as? 


PROCEDURE <NON-TYPED PROCEDURE ICDENTIFIER> 
(<FORMAL PARAMETER>><FORMAL PARAMETER>> 
<FORMAL PARAMETER>)3 
FORMAL <FORMAL IDENTIFIER> <FORMAL TYPE PART>>» 
C<FORMAL IDENTIFIER>»<FORMAL ICENTIFIER>) 
<FORMAL TYPE PART>3 


When a formal parameter is declared as FORMAL_VALUE» the actual 
parameter will always be passed by value. See the section on 
ADDRESS and VALUE PARAMETERS. 


The field type of formal parameters Cise@e» components of the 
<FORMAL TYPE PART>) may be static (BIT» CHARACTER» or FIXED) or 
variable CBIT VARYING» CHARACTER VARYING» or VARYING). 


The <FIELD SIZE> must be a <CONSTANT EXPRESSION> (1 -e@e» an 
expression whose value can be determined during compilation). 
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Often however>» it 18 impossible to determine the data type at 


compile time especiaily if the actual parameters are passed _ to 
the procedure from different ooaints tn the program and under 
differing circumstances. SOL allows the user to specify variable 
data fields in the format declaration. The actual parameters 
passed to that procedure wilt provide tne specifics. Thus 
formals may be declared as “*B8IT VARYING™",» “CHARACTER VARYING» or 
"VARYING". 


In a variable bit or character field» the type of data passed 
must be that which 1s specified Cieee» BLT or CHARACTER). The 
Length» however » remains variable. Formals specified as 
"VARYING™® may accept any type of data of any tength. 


The data types of corresponding formal and actual parameters will 
not be checked at compile time and oanty at run time when 
FORMAL-eCHECK has been specified as a control card option. 


Varying formals may he remapped» but it is the programmer's 
responsibility to ensure that the remapped formal parameter and 
Its corresponding actual parameter match» A warning message wilt 
appear in the source listing where the remapping has occurred. 


(_ SOL also allows formally deciared arrays to have a variable 
id number of elements by substituting "** for the number following 
the <ARRAY IDENTIFIER>. For instance: 


PROCEDURE X CA»sB)s 
FORMAL A (#) FIXED» @ (#) VARYING; 


INTRINSIC HEAD 


The word “INTRINSIC™ may be used interchangeably with the word 
"“PROCEDURE™. [It is» however» Intended only for use by the SDL 
group in order to provide SOL intrinsics. 


The use of "INTRINSIC™ forces the intrinsic to have as entry 
point the displacement 0 within a new segment. 


kkk 
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PROCEDURE sgDY 


The body of the procedure follows the headings =Incetuded are 
deciaration of tocal data (Cdiscussed under “THE DECLARATION 
STATEMENT™)» nested procedures (also see “BASIC STRUCTURE OF THE 
SDL PROGRAM")» executable statements» and: an ending. The syntax 
for the <PROCEDURE EXECUTABLE STATEMENT LIST> follows: | 


<PROCEDURE BODY> ss:= <DECLARATION STATEMENT LIST> 
PROCEDURE STATEMENT LIST> 
<PROCEDURE EXECUTABLE STATEMENT LIST> 
<PROCEDURE ENDING> 


<PROCEDURE EXECUTABLE | 

STATEMENT LIST> ss= <PROCEDURE EXECUTABLE STATEMENT> 

| 1 <PROCEDURE EXECUTABLE STATEMENT> 
<PROCEDURE EXECUTASLE STATEMENT LIST> 


<PROCEDURE EXECUTABLE 
STATEMENT> is= <EXECUTABLE STATEMENT> 
1 <RETURN STATEMENT> 
1 <SEGMENT STATEMENT> 
<PROCEDURE EXECUTABLE STATEMENT> 


The <EXECUTABLE STATEMENT>s wilt be discussed in the section : 
entitled “EXECUTASLE STATEMENTS™. As indicated by the above ae 


syntax» executable Statements within a procedure may De 
segmentede Howevers a procedure must end in the same segment in 
which it begins. For other segmentation restrictions see “THE 


SEGMENT STATEMENT™. 


The syntax for the <RETURN STATEMENT> iss 


<RETURN STATEMENT> ss <TYPED PROCEDURE RETURN STATMENT> 
| <NON“TYPED PROCEDURE RETURN STATEMENT> 


<TYPED PROCEDURE 
RETURN STATMENT> 3: 


= RETURN <EXPRESSION> 


<NON“TYPED PROCEDUR 
RETURN STATEMENT> 


oo 
ee fT) 


= RETURN 
| RETURN_AND_ENASLE_INTERRUPTS 


The <RETURN STATEMENT> takes one of two forms depending oan the 


type of the procedure encompassing ite If the procedure 15 
"TYPED™» an <EXPRESSION> must be returned to the point of 
invocation. In a *NON@“TYPEO™ procedures only a simple return 1s 
needed. For expression specifications refer to the sections 


entitled "EXPRESSIONS™ and "PRIMARIES". 
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Type checking on a <RETURN STATEMENT> ts done only at run tite 


when FORMAL.CHECK appears as a control card option. 


Within any given procedure Cat any tlexic tLevel)>, certain 
Statements are nested within other statements and are accessed» 
much tike a procedure» by an address generated by the larger 


Statement. The most generat nesting level 1s zero» and the 
nesting level of any statement appears on an SDL listing under 
the column "NL". The most common instance of statements 


eccurring at Nesting Level 1 or greater are: 
le The conditionaily executed Statements following 
"THEN" and "ELSE" tn the <IF STATEMENT>. 
Ze Statements contained within a <CASE STATEMENT>. 
Ss <DO“GROUP>s. 
If the compiler cannot find a <RETURN STATEMENT> on NL O» it will 
generate one directly preceding the <PROCEDURE ENDING>. This 1s 


merely asafety measure to insure that a procedure can always be 
properly exited. 


A compiler-generated return works essentially in the same manner 


as an explicit return. In a nonetyped procedure» control is 
returned to the point of the procedure’s invocation. In a typed 
procedures the following values are returned. 
If the procedure is typed: the compiler will return: 

BIT BITS CONTAINING O 

OF LENGTH SPECIFIED 

CHARACTER BLANKS OF LENGTH SPECIFIED 

FIXED FIXED ZERQ 

BIT VARYING 8-BITS OF ZERO 

CHARACTER VARYING | ONE BLANK 


VARYING FIXED ZERO 


RETURN_ANO_ENABLE_INTERRUPTS 1s for MCP use onlye It will cause 
anormal procedure exit to take places and will enable interrupts 
as weli. 
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| FROCERURE ENDING 


The <PROCEDURE ENDING> is the Penge Statement of a procedures and 
the syntax 1S: | 


<PROCEDURE ENDING> s::= END 


! END <PROCEDURE ICENTIFIER> 


The identifier following the reserved word "END" is optional. 
Its sole purpose is to simplify the documentation of the program. 
If an identifier is supplied by the user» the compider will 
perform a syntax check to guarantee that the <PROCEDURE ENDING> 
1S appropriately peacees 
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ASSIGNMENT STATEMENTS AND EXPRESSIONS 


<ASSIGNMENT STATEMENT> 335 <ADDRESS VARIABLE> 


<REPLACE> 
<EXPRESSION> 
 <ADDRESS VARTABLE> 33= SEE "ADDRESS VARIA8LES” 
<REPLACE> 335 = 
<EXPRESSION> 2:= <STRING EXPRESSTION> 


[ <STRING EXPRESSION> 
CAT <EXPRESSION> 


<STRING EXPRESSTON> 3:= <LOGICAL FACTOR> 
1 <LOGICAL FACTOR> 
<OR“ING OPERATOR> 
<STRING EXPRESSION> 


<OR*ING OPERATOGR> <:3= OR ft EXOR 
<LOGICAL FACTOR> 33= <LOGICAL SECGNDARY> 


1 <LOGICAL SECONDARY> 
AND <LOGICAL FACTOR> 


<LOGICAL SECONDARY> :3:= <LOGICAL PRIMARY> 
i NOT <LOGICAL PRIMARY> 
<LOGICAL PRIMARY> ss: <ARITHMETIC EXPRESSION> 
tf <ARITHMETIC EXPRESSION> 
<RELATION> 


<ARITHMETIC EXPRESSION> 


<RELATION> :3= < } <= 1 =f! /= 1 >= 1 D> 1 
LSS ft LE@ § EQL I! NEQ 
GEQ 1 GTR 

<ARITHMETIC 

EXPRESSIOQN> :3= <TERM> 

| 1 <TERM> 


<ADDITIVE OPERATOR> 
<ARITHMETIC EXPRESSION> 


<ADDITIVE OPERATOR> 


ul 


+ } - 


<TERM>:2= | <SIGNED PRIMARY> 
1 <SIGNED PRIMARY> 
<MULTIPLICATIVE OGPERATOR> 
<TERM> 


<MULTIPLICATIVE 3 
OPERATOR> ::= | * | MOD 1 / 
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<SIGNED PRIMARY>s:= _ <PRIMARY> _ 
1 <UNARY OPERATOR> 
<PRIMARY> 


<UNARY OPERATOR> ::= ‘+ 1- 
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The following is a list of the SDL operators from highest 
precedence to lowest. This list or the table in Figure 3 may be 
used when evaluating an expression. 


+ » @ (C<UNARY OPERATOR?) 
x, /» MOD 
+2 = C<K<ADDITIVE OPERATOR>) 


<p f=, =p <=p %=5 


CR» EXOR 
CAT 


Le The assignment operator has higher precedence than 
any operator to its teft and Lower precedence than 
any to its right. 


Ze The order of evaluation of operators having equal 
precedence 1s always from left to right. 
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PRESENT OP. 


NEG *« += = NOT AND OR CAT: 


= ¢ } 
NEG > > > > < > > > € < > > 
& < > > > < > > > < < > > 
t- < < > > < > > > < < > > 
P 
R = < < < > < > > > < < > > 
£ 
Vv NOT « < < < > > > > < < > > 
I 
G AND < < < < < > > > < < > > 
U 
s OR < < < < < < > > < < > > 
0 CAT < < < < < < < > < < > > 
P. 
3= < < < < < < < < < < > > 
( < € < < < < < < < < = 
,) > > > > > > > > > 
BT < € < < < < < < < < = 


Var a 


FORMULA: PRECEDENCE <PREVIOUS OP> <RELATION> PRECEDENCE <PRESENT apy. 


NOTE: NEG UNARY OPERATORS 
x MULTIPLICATIVE OPERATORS 
= RELATIONAL GPERATORS 
= REPLACE OPERATORS 
BY INFERRED BEGINNING TERMINATOR 
ET INFERRED ENDING TERMINATOR 
Fig 3. Operator Precedence Table 
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UNARY OPERATORS 


+ 


The unary operator acts upon one ocperand and may never appear as 
an infix operator between two ooerands. It may anpear to the 
right of any other operator» including itself. | 


The UNARY MINUS (€*) generates the two's complement of the operand 
associated with it €iee@e» “X = (NOT X)41).~ The operand may 0Obe 
any data typee If tt is fixed» the UNARY MINUS has the effect of 
reversing the sign» and the result its tabeted an the Evaluation 
Stack as fixed. 


If the operand is either a character or bit strings oantly the 
lowrvorder 24 bits will be evaluated. Strings less than 24 bits 
will be padded with leading zeroes to 24 bits. The two's 
complement of the string is generated and returned to the i stack 
as type fixed. 


The SOL compiler generates no code for the unary plus (+) which 
exists solely for the convenience of the programmer. 


ARITHMETIC OPERATORS 


+ Additton 

~ Subtraction 

ix Multiplication 

MOD Division yielding integer value of remainder 

/ Division yielding integer value af quotient 
The arithmetic operators perform 24-bit arithmetic an two 
operands of any of the three data types. Sign analysis wiit be 


done only if both operands are fixed. With any other combination 
of data types» the magnitudes of the operands are evaluated. 
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For both bit and character data» if the field is greater than 24 
bits» only the Lowrmorder 24 bits will be evaluated. If the fietd 
is fess than 24 bits» tleading zeroes wilt be supplied from the 
lefte . | 


A 24-bit result will be returned to the Evaluation Stack. If 
both operands are fixed» the result will be fixed. Otherwise» 
the resuit will be type bit. | 


SOL division results in an integer value. Any remainder is 


truncated thus: 


7/3=2 
3/f7f2= 9 
Note this means that "*" and "/" do not associate. In general» 


CA * B) / C does not equat A * (8B / C). 
The MOD operation is division resulting in the tnteger value of 
the remainder. It is evaluated by the following formuias 

Y MOO Z = YrCZ*CY/Z)) using integer division explained above. 


For examples: 


7 MOCO 3 = 7703 * 2) = 1 
“7 MOD 3 = 77°03%(9°2)) = -1 
3 MOD -7 = 3-C€(e7)*("0)) = 3 
“3 MOD “7 = Ce3)"C€7) * 9) = =3 
Note: For negative arguments» this definition is not the same as 


the traditional definitions from mathematics. 


RELATIONAL QPERATORS © 


EOL FQUAL TO 


/= NE@ NOT EQUAL TO 

> GTR GREATER THAN 

< LSS | LESS THAN 
>= GEQ GREATER THAN OR EQUAL TO 
<=. LEQ LESS THAN OR EQUAL TO 
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The relational operators do a comparison between two operands of 
any data type. A lmbit result is returned <** a€1)123 if the 
condition is trues 3(1)02 if the condition is false. 


If both operands are fixeds the operator does a true signed 
comparee I[f both operands are character strings» the shorter one 
is padded on the right with blanks» and a character by character 
magnitude compare by collating sequence is donee 


For atl other operand combinations» leading zeroes are supplied 
to the shorter of the two. No sign analysis 1s done» and 
operands are treated as positive magnitudes. 


LOGICAL QPERATORS 


The togical operators perform a Dit by bit analysis on atl three 
data types. NOT 3s considered to be a unary operators and may 
appear to the right of any other operator Cincluding itself). 


The other operators require two operands. The shorter of the two 
is padded on the left with zeroes to duplicate the Length of the 
larger. The following chart illustrates the use of each 
operator. 


IF X = 0 0 1 1 
IF Y = ) 1 0 1 
NOT X = i 1 0 C 
NOT Y = 1 0 i 0 
X AND Y = 0 0 ¢) 1 
X OR Y = 0 i 1 1 
X EXOR ¥ = ) 1 1 0 
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REPLACE OPERATORS 


<ADDRESS VARIBLE> | 


if 


<ASSIGNMENT STATEMENT> 


<REPLACE> 
<EXPRESSION> 
<REPLACE> 33s= Vem 
<ASSIGNOR> <s= <ADDRESS VARIABLE> 
<NGN“DESTRUCTIVE REPLACE> 
<EXPRESSION> 
<NON-DESTRUCTIVE 3 
REPLACE> :s= | <REPLACE» DELETE LEFT PART> 


| <REPLACE» DELETE RIGHT PART>~ 


<REPLACEs DELETE 
LEFT PART> 33 = 


<REPLACE» DELETE 
RIGHT PART> si | ss= 


NOTES <REPLACE» DELETE RIGHT PART> symbol “%s:=" is the same 


as the SNF definition symbol. 


There are two basic types of replace operators: The destructive 
<REPLACE> associated with the <ASSIGNMENT STATEMENT>» and the 
<NON“DESTRUCTIVE REPLACE> which occurs only within an expression. 


The destructive <REPLACE> operator causes the expression on its 
Fight to "REPLACE" the variable on its teft. The Evaluation 
Stack is flushed since this replace is necessarily the last 
operation in the statement. | 


The <NOGN“DESTRUCTIVE REPLACE> takes two forms: “DELETE LEFT® and 
"DELETE RIGHT™. The “DELETE LEFT" causes the expression to the 
right of the operator to replace the variable on its lefte The 
variable is then deleted from the top of the Evatiuation Stack» 
and the expression is left on the top of the stack. 


The “DELETE RIGHT” causes the same replacement. However» the 
expression to the right of the operator is deleted from the 
Evaluation Stack» and the variable to the left remains on the top 
of the stack. 
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The foltowing example illustrates the use of the <NON"“DESTRUCTIVE 
REPLACE>: 


PROCECURE GOOD S81T VARYING; 
DECLARE X SITC4&8)>; 
RETURN X 23= "RESULT", 

END GOOD» 

PROCEDURE BAO SIT VARYING; 
DECLARE Y BITC48)>; 
RETURN Y := *PRESULT™> 

END BAD» 


PROCEDURE GOOD wilt execute properly since X» dectared as Dit» is 
associated with the procedure typer-"bit varying. Notices 
however» that in PROCEDURE BAD» Y is deleted from the stack and 
the character string “RESULT™ remains. Unless the control card 

option FORMAL.CHECK is set at compile time» there will be no 
indication that the data types Cas tn PROCEDURE BAD) do not match 
the procedure type. If FORMAL.CHECK is specified» the following 
execute time error message will be printed: 


"TYPE ERROR IN RETURNED VALUE™ 


If both operands associated with any replace operator are 
character fields» and the receiving field is longer than the 
sending field» tratting blanks wilt be added. If the receiving 
field is shorter», characters will be truncated from the right. 


With every other comoination of data types» when the receiving 
field is not equal in length to the sending field» leading binary 
zeroes will be appended to the targer receiving field» oar 
highwtorder bits are truncated from the larger sending field. 


Inconsistant results may be obtained in cases such as 


=SUSSTR CAvr225) 


(1e@ee where the sending field and the receiving field are simple 
primaries less than 24 bits apart). This problem can be avoided 
by enclosing the SUSSTR in parentheses. 


As= (SUBSTRCA2225))> 
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Also see the reverse store operation itn the section entitled 
"EXECUTE“FUNCTION STATEMENT™. | 
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CONCATENATION 


Data items may be Linked together (concatenated) by using the 


"CAT" operator. Although this ooerator 1S intended to 
concatenate bit strings or character strings» it may be used with 
any combination of data types. The result of any concatenation 


may not be greater than 82191 characters or 65535 bits. 


{If all the operands are character strings» the result is a 
character string. For any other combination of data types» the 
result is a bit stringe For example: 


LET A = "8" i CHARACTER 
B = 3(1)1012 3 BITS 
Cc = 10 | FIXED 
THEN 
8 CAT B = 3191011914 BIT STRING» LENGTH 6 
A CAT A = "88" CHARACTER STRING» LENGTH 2 
A CAT B = 2€1)1100001010193 BIT STRING» LENGTH 11 
B CAT C = 2(03)95000000129 BIT STRING» LENGTH 27 


CEXPRESSED IN OCTAL) 
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<PRIMARY> 3:= <CONSTANT> 

<VARIABLE> 
C<EXPRESSION>) 
<CONDITIONAL EXPRESSION> 
<CASE EXPRESSION> 
<BUMPOR> 

<DECREMENTOR> 

<ASSTGNOR> 


<VARIABLE> 33 : <ADDRESS VARIABLE> 
= {i <VALUE VARIABLE> 


A primary is the most basic component of the SOL expression. To 
avoid unnecessary repetition» see *BASIC COMPONENTS OF THE SDL 
LANGUAGE"™ for discussion of constants» and see “ADDRESS 
VARIABLES™ and "VALUE VARIA3LES* for discussion of variables. 


CONDITIONAL EXPRESSION ©) 


<CONDITIONAL EXPRESSION> s:= IF <EXPRESSION> 
THEN <EXPRESSTON> 
ELSE <EXPRESSION> 


The expression following the reserved word "IF" is evaluated. If 
the towrorder bit of the result is 1» the expression following 
"THEN™ is evaluatede Otherwise» the expression following “"ELSE® 
is evaluated. Unlike the <IF STATEMENT>» the “ELSE” part of the 
expression must be present. 
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CASE EXPRESSION 


<CASE EXPRESSION> :s= CASE <EXPRESSION> 
OF C<EXPRESSIONLIST>) 


<EXPRESSION LIST> :3s= <EXPRESSION> 
| 1 <EXPRESSION>» 
<EXPRESSION LIST> 


In the <CASE EXPRESSION>» the value of the <EXPRESSION> following 
the reserved word “CASE" is used as an index into the tist of 
expressionse The expression thus selected is evaluated» and the 
Other expressions in the list tgnorede The range of the index is 
froma zero to Neils where N is the number of <EXPRESSION>s in the 
liste An example of an <ASSIGNMENT STATEMENT> containing a <CASE 
EXPRESSIOQN> follows: 


As=CASE I OF CA#Bs» AwBe A*Bx» A/Be» A MOD 8) + 
CASE J OF (Q*#F"5s» 9s 3448» CA+B8) MOD Be C) 


if I=2 and J=3» the statement will be evaluated as follows: 


As=(A#B) + CA#B) MOD 8B, 


BUMP 

<BUMPOR> 235 BUMP <ADDRESS VARIABLE> 
<MODIF TER> 

<MODIFIER> 3:5 <EMPTY> 


1 BY <EXPRESSION> 


BUMPOR teaves on the Evaluation Stack» a descriptor of the 


variable which has been incremented by the value of the modifying . 


<EXPRESSIOQN>. If <MODIFIER> is <EMPTY>» then the variable is 
incremented by 1. The results of the following expressions 
(where A is an <ARRAY IDENTIFIER>) are equivalent: 


BUMP ACX#Y%) BY N 
ACX#Y¥) 33= ACX#Y) # N 
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The advantage of using <BUMPOR> 1s that the code for putting the 
descriptor on the stack is executed only once. Thus it 1S more 
efficient. - 


Like any variable» (<BUMPOR>) witl cause a value to be loaded to 
the 8? of the stack. Hence: 


PCBUMP X BY C=D)3 
passes X by address but» 
PCCBUMP X BY C=D))> 
passes X by value. 
<BUMPOR> operates on alt three data types. Character strings are. 
treated as if they were bit strings. For fields greater than 24 


bits» only the lowctorder 24 bits are evaluated. If the field is 
iess than 24 bits» it is padded with leading zeroes to 24 bits. 
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DECREMENT - 


<DECREMENTOR> i: DECREMENT <ADDRESS VARIABLE> 
<MODIFIER> 


<MOOIFIER> ss= <EMPTY> 
1 dY <EXPRESSION> 


The <DECREMENTOR> works exactly Like <BUMPOR> except that the 
variable is decreased by the value of the <EXPRESSION>. See 
above. 


<ASSIGNOR> :s= see REPLACE OPERATORS in Chapter 7. 
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ADDRESS VARTABLES 


<ADDRESS VARIABLE> ::= | <SIMPLE VARIABLE> 
| | <SUBSCRIPTED VARIABLE> 
1 <INDEXED VARIABLE> 


| <ADDRESS*GENERATING FUNCTION DESIGNATOR> 


SSIMPLE VARIABLE> 2:3= | <SIMPLE IDENT IFIER> 


<SIMPLE IDENTIFIER> 2 3= <IDENTIFIER> | 
<SUBSCRIPTED VARIABLE> 3::= <ARRAY IDENTUIFIER>C<EXPRESSION>) 
<ARRAY IDENTIFIER> ss= <IDENTIFIER> 

As noted above» <ADDRESS VARIABLE>s may take the form of a 
<SIMPLE IDENTIFIER>» or an <ARRAY IDENTIFIER> followed by an 


C(<EXPRESSION>) designating the array element in question. In 
addition» simple and array identifiers may be indexed. 


INDEXING 

<INDEXED VARIABLE> 2:= <SIMPLE IDENTIFIER> <INDEX PART> 
| | <ARRAY IDENTIFIER> <INDEX PART> 
<INDEX PART> i:= [CE XPRESSION LIST>] 


Each of the expressions in the <INDEX PART> 1s evaluateds and the 
sum of these is formed. This will be caitted the index. 


The indexing operation occurs functionally as follows: 
le The simple or array descriptor is toaded to the top 
of the Evaluation Stack. 
Ze If the descriptor is an array descriptors then ?t 15s 
converted to a simple descriptor which describes the 


first (zero) element of the arraye 


3 The address field of the descriptor is modified by 
adding to it the tndex.e 
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Note that selferelative data items (Ci.ee.» data items whose length 
1s not greater than 24» =which are not in a structures» and which 
do not remap some other data item) may not be indexed. 


There are two methods of indexing: 


le The descriptor provides the address» and _ the index 
provides the offset from this address. 


2% The descriptor provides the offsets» and the index 
provides the address. 


Examples 


: N BITS > 5 BITS : 2: 3:8 
gaan awnonmfewraanaer=> 


Field D may be accessed using either method (1) or method (2). 
Assume N contains the offset to 8. 


Method (1)5 


DECLARE 
01 <A BITC5000)>» 
O02 Be 
03 c BITC5)» 
03 O BITC2)>» 
03 E€ BITC3)> 
N BITC24)>» | 
X BITC2)> | 
/* THE NEXT STATEMENT WILL MOVE D CWITH THE OFFSET 
GIVEN SY N) INTO X #/ 
X | OCNI>» 
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Method (2): 


DECLARE | 
A BITC(5000)>» —_ 
01 BB REMAPS BASE» 
02 cc BITC5)>» 
02 DD BIT(C2)>» 
62 EE BITC3)>» 
N BITCZ4&)» 
X BITC2)> 
7x THE NEXT STATEMENT WILL MOVE DD | 
CWITH THE OFFSET GIVEN BY N) INTO X #/ 
X | DDIN» DATA_ADDRESSCA) I; 


Note the following: 


le The structure above» comprised of BB» CC» DD» and EE» 
which remaps base is called a "template™. 


2 « This template may de applied to any data area merely 
by providing the address as part of the index. This 
1S not the case when method(€ 1) indexing is used. 


50 The example above is contrived -7" in method (2)» if N 
contained the address of B rather than the offset to 
B from the beginning of A» then the statements which -_ 
store D into X would be identical: xX 1 DDINd> NY 


COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


ADDRESS GENERATING FUNCTIONS 


<ADDRESS “GENERATING 
FUNCTION DESIGNATOR> 3:3 


| 

i 

i 

| 

QUBBIT ANQ SUBSTR 

<SUB*“STRING ADDRESS 
DESIGNATGR> ::= 

j 


<SUB“STRING FUNCTION 
IDENTIFIER> is 


STRING ADDRESS> ::= 
<ADDRESS GENERATOR> ::= 


<OFFSET PART> ss= 


<LENGTH PART> :s= 


SUBSTR yields a 
the <STRING ADDRESS>. 
is specified 
the string 1s zero). 

the subs«stringe If 


If X = "CHARACTER* 
C = "COALITION* 


then 
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<SUB“STRING ADDRESS DESTGNATOR> 
<FETCH COMMUNICATE MESSAGE 
PGINTER DESIGNATOR> 

<DESCRIPTOR DESTIGNATOR> 
<DESCRIPTOR*GENERATOR DESIGNATOR> 
<ADDRESS*MODIFIER DESIGNATOR> 
NULL 


<SUS“STRING FUNCTIGN I[DENTIFIER> 
C<STRING ADDRESS>»<OGFFSET PART>) 
€SUB*STRING FUNCTION IDENTIFIER> 
C<STRING ADDRESS>.<OFFSET PART>>» 
<LENGTH PART>) 

SUBBIT 1 SUBSTR& 

<ADDRESS GENERATOR> 

SEE "ADDRESS GENERATOR” 
<EXPRESSION> 


<EXPRESSTION> 


substring of a character string identified by 
The beginning character of the sub-string 
by the <OFFSEY PART> (where the first character of 
The <LENGTH PART> specifies the length of 
omitted>s 
“QFFSET* character is assumed. 


the rest of the string from the 
For example: 


SUBSTRCX»4) s= SUBSTRCC20+4) 
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yields the character string: 


"CHARCOAL * 


Like alk charactertoccharacter store operattionss 1 f the 
receiving field is larger than the sending fieids the sendtng 
field is padded with blanks on the right. If the sending field 
is longer» characters are truncated from the right. Note that 
this is a function of the store operator and not substre | 


SUBBIT yields a substring of a bit string identified by the 
<STRING ADDRESS>. The beginning bit of the substring its 
specified by the <OFFSET PART> (Note: The first bit of the 
string is Q). The length of the subcestring is specified by the 
<LENGTH PART> whichs if omitted» wilt be assumed to be the rest 
of the string. | | 


EXAMPLES 


@€1)001010110i2 
@€C1)000011110132 


If A 
B 


ow 


then 
“ SUBBITCA+2%3) CAT SUBBIT(B+5) 
results ins: 
a€1)101111012 
and 
SUBBITCA»3) CAT SUBBIT(CBs0»6) 
results in: 


901)01011010000119a 
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FETCH COMMUNICATE MSG PIR 


<FETCH COMMUNICATE MESSAGE 
POINTER DESIGNATOR> i: FETCH _COMMUNICATE_MSG_PTR 


See the 81790 MCP Reference Manual for a description of the run 
structuree 


If the RS_MCP_BIT is set» then RS_COMMUNICATE_MSG_PTR 1s 
accessed. Otherwises RS_REINSTATE_MSG_PTR ts accessed. The 
accessed fieid 1s assumed to be a descriptor and is ptaced on the 
top of the Evaluation Stack. 


EXAMPLE: 


DESCRIPTORCCOMM_MSG) := 
VALUE.DESCRIPTOR(FETCH_COMMUNICATE_NSG_PTR)>; 


COMM_MSG now describes the communicate message» assuming that the 
message was described by a nonwselfrrelative descriptor. 


DESCRIPTORS 


<DESCRIPTOR DESIGNATOR>3: s= DESCRIPTOR C<SIMPLE IDENTIFIER>) 
| CESCRIPTOR C<ARRAY ICENTIFIER>) 


"DESCRIPTOR™ places on the Evaluation Stack» a descriptor which 
describes the descriptor of a <SIMPLE IDENTIFIER> or an <ARRAY 
IDENTIFIER>. The descriptor function may appear as the object of 
a replacement >» thereby providing easy access to any part of a 
descriptor. 


EXAMPLE : 


1. _ SUBBITCDESCRIPTORCX) 2422) 2= 23 


Ze DESCRIPTORCX) s= DESCRIPTORCY)>; 
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Example (2) forces both X aaa Y to desde she the same 
data name. Note» however» that if X and Y are not 
either both simple items or both arrays» the resutt 
wili be itncorrecte _ | | 


MAKE DESCRIPTOR 


<DESCRIPTOR“GENERATOR 


DESIGNATOR> 3:= MAKE DESCRIPTORC<EXPRESSION>) 


The value which is generated by the <EXPRESSION> is assumed to be 
a descriptor.e This descriptor replaces on the Evaluation Stack» 
the descriptor representing that <EXPRESSION>. If the name~value 
bit of the expressions descriptor on the Evaluation Stack is 
sets then the value of the TaN Eun is removed from the Value 
Stacke 


A <DESCRIPTOR GENERATOR DESIGNATOR> may appear as the object of a 
replacement» however the programmer is responsible to see that 
the descriptor built generates an address. There is no syntax 
check for thise 


The following examples illustrate the relationships between the 
descriptor functions: 


DESCRIPTORCXI=VALUE_DESCRIPTORCX)» 
where X 1s nonsselferelative 


MAKE_DESCRIPTOR CDESCRIPTORCX)) = X» 
where X 1s nonwselfrretative 


MAKE_CESCRIPTOR CVALUE_DESCRIPTORCE)) = E>» 
where E is an <aADDRESS GENERATOR> 


VALUE _ DESCRIPTOR CMAKE_DESCRIPTORCE)) = Eso 
where the value of E is a vatid <ADDRESS GENERATOR> 


SE ALLO NO OE SCE SE OT REE Te 
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NEXT LITEM» PREVIQUS_ ITEM 


<ADDRESS=<MGDIFIER 

DESIGNATOR> s::= <ADDRESS@*MODIFIER FUNCTION IDENTIFIER> 
C<SIMPLE IDENTIF IER>) 

<ADDRESS“MODIFIER 

FUNCTION IDENTIFIER> ss= NEXT_ITEM 


1 PREVIOGUS_ITE™ 


The NEXT_ITEM function causes the Length field of the descriptor 
represented by the <SIMPLE IDENTIFIER> to be added to the address 
field of that descriptor. This modified descriptor 1s put back 
onto the Name Stack» and also moved to the top of the Evaluation 
Stacke Moving the modified descriptor to the Evaluation Stack 
iS» in effects» a load address of the new item described by the 
<SIMPLE IDENTIFIER>. Hence» *"NEXT_LITEM™ may be used a4s_ the 
object of a replacement. For example» the following statements: 


DECLARE OL CHAR_STRING CHARACTERC1000)>» 
02 NEXT_CHAR CHARACTERC1)3 
NEXT_ITEM CNEXT.CHARDI"D"S 


have the effect of storing *"*D" into the second character of 
CHAR_STRING»s which is: 


SUSSTRCCHAR_LSTRING» 1,1), 


The PREVIOUS_ITEM function is identical to NEXT_ITEM except that 
a subtraction Cof length from address) ts performed. 


NULL 


This function generates an address of type character with zero 
length. A store into this address is essentially a norop. NULL 
1s used primarily in conjunction with the REFER statement. 
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— ADDRESS GENERATORS 


<ADDRESS 


GENERATOR LIST> ::= <ADDRESS GENERATOR> 
a 3 1 <ADDRESS GENERATOR>» 
 - €ADDRESS GENERATOR LIST> 
<ADDRESS GENERATOR> 33> <ADDRESS VARIABSLE> 
1 <BUMPOR> 
| <DECREMENTOR> ~ 
{ <CONDITIOGNAL ADDRESS GENERATOR> 
[ <CASE ADDRESS GENERATOR> . 
1 <ADDRESS*GENERATING ASSIGNOR> 
<BUMPOR> 3$3s= See *BUMPOR*™ 
<DECREMENTOR> :2= See "“DECREMENTOR™ 


<CONDITIONAL ADDRESS 

GENERATOR> :3= IF <EXPRESSION> ~ 
THEN <ADDRESS GENERATOR> 
ELSE <ADDRESS GENERATOR> 


<CASE ADDRESS 
GENERATOR> ::= CASE <EXPRESSION> iy 
OF {<ADDRESS GENERATOR LIST>? C’) 
- 
<ADORESS~GENERAT ING 


ASSIGNOR> ::= <ADDRESS VARIABLE> 
. <REPLACE» DELETE LEFT PART> 
<ADDRESS GENERATOR> 
i <ADDRESS VARIABLE> 
<REPLACEs DELETE RIGHT PART> 
<EXPRESSTION> 


The <ADDRESS GENERATOR> includes any primary which deaves an 
address on the top of the Evaluation Stack. See *PRIMARY 
ELEMENTS OF THE EXPRESSION™ for more explicit detail. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


<VALUE VARIABLE> 33= 


<FILE DESIGNATOR> 3:3= 


<TYPED PROCEDURE 
DESIGNATOR> 


& 8 «= 
e@oqom™™ 


<TYPED PROCEDURE 
IDENTIF IER> 


@ 8 
eoo7 


<ACTUAL PARAMETER PART> 


<ACTUAL PARAMETER LIST> 


<ACTUAL PARAMETER> ::= 


<ARRAY DESIGNATOR> ::= 


<ARRAY IDENTIFTER> 332 
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VALUE VARTASLES 


<VALUE*GENERATING FUNCTION DESIGNATOR> 
<TYPED PROCEDURE DESIGNATOR> 

C<ADDRESS VARIASLE>) 

<FILE DESTIGNATOR> 


<FILE IDENTIF IER> 
<SWITCH FILE IDENTIFTIER>C<EXPRESSION>) 


<TYPED PROCEDURE IDENTIFIER> 
<ACTUAL PRAMETER PART> 
<IDENTIFIER> 


<EMPTY> 
C<ACTUAL PARAMETER LIST>) 


<ACTUAL PARAMETER> 
<ACTUAL PARAMETER>>» 
<ACTUAL PARAMETER LIST> 


<EXPRESSION> 
<ARRAY DESIGNATOR> 


<ARRAY IDENTIF TER> 


<IDENTIFIER> 


Notice from the above syntax that any <ADDORESS VARIABLE> enclosed 


in parens» 
variable. 


The value 
the specified file. 
<FILE DESIGNATOR> 
statement. 


is 


such as (SUBBIT CAsI»J))>» 


will be treated as a value 


generated by a <FILE DESIGNATOR> is the FPB number of 
A warning message will 
used 


when a 
in an I/9 


issued 
not 


be 


as a vatue»s 1e@es 
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TYPED PROCEDURES ~ 


The TYPED procedure (a procedure which returns a value) is. 
invoked within an expression according to the above syntax. The 

| procedure identifier» followed by its parameters (Cif any)» 
enclosed within parens»s is treated as an operand in the 
expression. For details on passing parameters» see ADDRESS AND 
VALUE PARAMETERS. The procedure is evaluated and the returned 
vatue replaces the <TYPED PROCEDURE DESIGNATOR>. For exampte: 


DECLARE Z FIXED, 
PROCEDURE XCA»B) FIXED? 
FORMAL CA»8) FIXEDs> 


END X3 
2 2= XCBUMP MpR)#13 


ADDRESS AND VALUE PARAMETERS — ey 


Actual parameters may be passed to a. procedure either by address 
(which passes the address of the actual parameter) cr by value 
(which passes a dupticate copy of the actual parameter). 


If an <ACTUAL PARAMETER> CSee VALUE VARIABLES and 
EXECUTE*PROCEDURE STATEMENT) is passed by address» then any 
change to the corresponding <FORMAL PARAMETER> tn the procedure 
wili result in a change to the originat value of the <ACTUAL 
PARAMETER>. 


If a parameter its passed by vatuer then only the duplicate copy 
of the <ACTUAL PARAMETER> can be changed. The original value 
remains unaltered» and the duplicate copy is erased when the 
procedure is exited. | 


An <ACTUAL PARAMETER> may be any expression or an <ARRAY 
TDENTIFIER>. SDL has specified that array identifiers may only 
be passed by address. An array elements» howevers may be passed 
either by address or by vatue. 
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Expressions may be divided into two groups: 


le Those which @ay be passed either by address or by 
value» and 


Le Those which may only be passed by value. 


An <AODRESS GENERATOR> is passed by address unless it is enclosed 
Within parentheses» oor unless the formal parameter to which it 
corresponds has been dectared as FORMAL_VALUE. In these two 
cases <ADDRESS GENERATOR>s will be loaded by vatue. Ait other 
expresstons are loaded by vaiue only. 


Examples of parameters passed by address: 


PCBUMP X» A) 
PCBCBUMP M)» SUBSITCX»5)) 
PCNEXT_LITEMC(B)» AzIC+#D) 


Examples of parameters passed by vatue: 


PCCBUMP X)» CA)s 3) 
PCCBCBUMP M))s» At#B) 
PCSWAPCA»0)»5 CSUBSTR{IAs5%3))) 


VALUE GENERATING FUNCTIONS 


<VALUE-GENERATING 

FUNCTION DESIGNATOR> ::= <BASE REGISTER DESIGNATOR> 
<3INARY CONVERSION DESIGNATOR> 
<BINARY_SEARCH DESIGNATOR> 
<COMMUNICATE WITH GISHO FUNCTION> 
<CONSOLE SWITCHES DESIGNATOR> 
<CONTROL STACK BITS DESIGNATGR>~ 
<CONTROL STACK TOP CESIGNATOR> 
<CONVERT DESIGNATOR> 

<DATA ADDRESS DESIGNATOR> 
<DATA_LENGTH DESIGNATOR> 
<DATA_TYPE DESIGNATOR> 

<OATE FUNCTION DESIGNATOR> 
<DECIMAL CONVERSION DESIGNATOR> 
<DELIMITED TOKEN DESIGNATOR> 
<DISPATCH DESIGNATOR> 


Ce el | 
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BASE_REGISTER 


<BASE REGISTER 
DESIGNATGR> 3s:3s= 


Oe ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
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<DISPLAY BASE DESIGNATOR> | 
<DYNAMIC MEMORY BASE DESIGNATOR> | 
<EVALUATION STACK TOP DESIGNATOR> 
<EXECUTE OPERATOR FUNCTION> 
“EXTENDED ARITHMETIC FUNCTION> 
<HASH CODE DESIGNATOR> 
<INTERROGATE INTERRUPT STATUS DESIGNATOR> 
<LAST LIO STATUS DESTIGNATOR> 


<LENGTH DESIGNATOR> 


<LIMIT REGISTER DESIGNATOR> 
<LOCATION DESIGNATOR> 

<NAME*OF “DAY FUNCTION DESIGNATOR> 
<NAME STACK TOP DESIGNATGR> 

<NEXT TOKEN DESIGNATOR> 
<PARITY_ADDRESS DESIGNATOR> 
<PROCESSOR_TIME FUNCTION DESIGNATOR> 
<PROGRAM_SWTICHES DESIGNATOR> 
<SEARCH_LINKED_LIST DESIGNATOR> 
<SEARCH_SDL_STACKS DESIGNATOR> 
<SEARCH SERIAL LIST DESIGNATOR> 
<MEMORY SIZE DESIGNATOR> 
<SORT_SEARCH DESIGNATOR> 
<SORT_STEP_DOWN DESIGNATOR> 
<SORT_UNBLOCK DESIGNATOR> 

<SPO INPUT PRESENT DESIGNATOR> 
<SUBLSTRING VALUE DESIGNATOR> 

<SWAP DESIGNATOR> ff ™ 
<TIME FUNCTION DESTGNATOR> ard 
<TIMER DESIGNATOR> 
<DESCRIPTOR_VALUE_GENERATOR ODOESIGNATOR> 


<WAIT FUNCTION? 


BASE_REGISTER 


A vaiue of type BIT(C24) 1s returned. The value is the absolute 
address of the base of the program. It should be noted that two 


separate executions 


BASE_REGISTER may not yield the same 


results» since the MCP may have moved the program in memory. 
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BINARY CONVERSION 


<BINARY CONVERSION 
DESIGNATOR> :3= BINARY (<EXPRESSION>) 


The <BINARY CONVERSION OESIGNATOR> returns a fixed value which is 
the binary representation of the <EXPRESSION>. The <EXPRESSION> 
is assumed to be a character string containing decimal digits. 
Only the lowrorder 8 characters will be converted. Zone bits are 
ignored. 


If the conversion results tn a binary value greater than 24 bits 
Ci sep if the decimal number is greater tnan 1687772215)» then 
the teft~-most bits will be truncated. 


If the decimal number is greater than 893889607 (Cie@e» (2 exp 
23)71)» then the returned value will appear to be negative (i.@es 
the highworder bit is 1). 


BINARY SEARCH 


<BINARY_SEARCH FUNCTIGN>:s= BINARY_SEARCH 
C<START_RECORD>» <COMPARE_FIELD>» 
<COMPARE_VALUE>» <NUMBER_OF_RECORDS>) 


<START_RECGRD>?:= <EXPRESSION> 
<COMPARE_FIELD>: := <TEMPLATE> 
<COMPARE_VALUE>: := <EXPRESSION> 
<NUMBER_OF_RECORDS>::= <ADORESS GENERATOR> 


BINARY SEARCH searches an ordered List of items that start at 
CSTART_LRECGRO> for <NUMBER_OF_RECORDS> for a matche 


The occurrence number of the entry that matches will be returned» 
or if there is no match» the occurrence number of the first entry 
that 1s greater will be returned. 


Note: The comparison is always teft justified and uses the 
length of <COMPARE VALUE>. 
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COMMUNICATE WITH GiSMO 
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<COMMUNICATE WITH GISNO 


FUNCTION> 22 ss COMMUNICATE_WITH_GISMO (<EXPRESSION>) 


The value of the operand is made nonwseifwrelative by pushing its 
value to the Vatue Stacker if necessarye The absolute address of 
the value is copied into the Trregisters» and the tength is copied 
into the Leregister. The proper swapper value is put into the 


Xeregister and controt is passed to GISMO. Any value returned by 


GISMO witk be described by the same descriptor on the Evaluation 
Stack as was used to pass a value to GISNO. 
COMMUNICATE_WITH_GISMO say be used etther as a statement or as a 
functione — 


CONSOLE SWITCHES 


<CONSOLE SWITCHES 
DESIGNATOR>:3= CONSOLE_SWITCHES 


Note: This function has meaning only 8i720°"series systems. 
It tleaves on the top of the Evatuation Stack a 
24"biter selferelative value of the 24 console 
switches. | 7 


CONTROL STACK BITS 


<CONTROL STACK 
BITS DESIGNATOR>::= CONTROL_STACK_8ITS 


This function leaves on the top of the Evatuation Stack a 24~bit» 
setf-relative value of type bit which is the number of bits teft 


in the control stack until overflowe 


CONTROL STACK TOP 


<CONTROL STACK TOP 


Pee Na eon, :3= CONTROL_STACK_TOP 
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A vatue of type BITC24) is returned. The value is the base 


relative address of the next entry to be placed on the _ control 
stack. 


CONVERT 


<CONVERSION DESIGNATOR> s3= CONVERT C<EXPRESSION>» 
<CONVERSION PART>) 
1 CONV C<EXPRESSION>» 
<CONVERSTION PART>) 


<CONVERSION PART> s:= <CONVERSION TYPE> 
| <CONVERSION TYPE>>» 
<BIT GROUP SIZE> 
<CONVERSITON TYPE> 33= © BIT § CHARACTER 1! FIXED 


<BIT GROUP SIZE> =: 


i) 
. 
. 
a 
i 


The <EXPRESSIOGN>>» which may be of any data type» will be 
converted as specified by the <CONVERSION TYPE>. The converted 
<EXPRESSION> will be returned as a value. 


The <BIT GROUP SIZE> is used only with bditstowcharacter or 
character=to-bit conversions. It specifies the number of bits 
Cof the bit string) which correspond to a character in the 
character string. 


Notes Bitwtoecharacter conversion does not yield decimal 
digits. If a bit string 1s to be converted to 
decimal digits» it should be stored in a fixed 
variable» and the fixed variable converted. 


a oT NEE aN AS Fo cn a ee en SR ASSES) © See SOON Bn ETI REE RPE EDO RE PD UE NOE 


BURROUGHS CORPORATION | | = COMPANY CONFIDENTIAL 


: COMPUTER SYSTEMS GROUP | «81000 SDL CBNF Version) 


SANTA BARBARA PLANT | : a — PeSe 2212 5405 (6) 


The following table shows the pessibie conversion 
combinations: pa * . 


OUTPUT: BIT CHARACTER | FIXED 

INPUT: keke etka kkk eke hktkekekke keke kek kkk thkh eek eekecheehee ees 
| te * Convert to CHAR. * Return 24 BITS *« 
; BIT * No change * under control of * providing lead= * 
| tc *« <BIT GROUP SIZE>+s* ing zeroes or te 

te 3 * if omitted use 4 * left truncationss 

ix * *# as necessarye i 
REAEKEXKEERKEARAEKKRE KARR EKA EKEKRERREEREKReR eR KRAKRKRKkKReReEKKRE KEKE” 


REREREKKKKEKKEKEKKKKEEKEEKERKEKEKREKKKERKRKEKEKKEKKKKKKEKKKE kkkakk 


*« Convert to bits * : * te 

CHARAC~ «* under control of* No change -€ See Notes. | 
TER *« <BIT GROUP SIZE>> * | ie 

* if omitted use 4s te & 


KRREEKERHRHEEKKEEKKEEKEKEKEKEKERERREREKKEKEKEREKKHKREKKZAEKKKEKKE 


khhtktekkek&kekkkaekekhekkkekeRekekkekekeekekhkkkeekkkekhkeeker ao 


| e * Decimal conver- * ey 8 
: * Change type * sion w/ leading * 2 
| FIXED * to BIT * Zeros & sign not * No change. * 
| | ie : * suppressed. (7 & ot 
® *« digits + SIGN). « te 
RekReRKaERKKKEkRKekEKEKKkKRARaRReEKRKREREEKRREKEKKEKRE KE KKRREKRKRKEeEKEeeERERKEKRE REE 
Note: The character string may have Leading blanks» sign 
Cor none)» sore blanks» and decimal digits. A plus 
sign 1s t1gnored.: The decimal digits Conly the 
lowtmorder 7) are converted to a binary number that is 
right-justified in a 24s*bit field. If the sign was 
-minuss then the 2's complement of the 24-bit field is 
returned. 
EXAMPLESS 
CONVERT (€""72581">FIXED) returns — “72581 
CONVERT CaC3)752aeCHARACTER 4) "iEA™ 
CONVERT CQaC1)110119eFIXED) 27 
CONVERT €7132"» BIT»2) a€2)132a 
CONVERT C*132"%5+BIT»4) 98491328 


CONVERT C"2">BIT ) | a€4)22 
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DATA ADDRESS 
<DATA ADDRESS 
DESIGNATOR> ::= DATA_ADDRESS (<ADDRESS GENERATOR>) 


<ADDRESS GENERATOR> 33= See ADDRESS GENERATORS 


The <DATA ADDRESS DESIGNATOR> returns a value of type BITC(24) 
which 4s the base relative address generated by the <ADDRESS 
GENERATOR>. 


DATA LENGTH 
<DATA_LENGTH DESIGNATOR>:3= DATA_LENGTH (<EXPRESSION>) 


Returns the length in bits of <EXPRESSION>> regardless oaf the 
data typee | 


DATATYPE 
<DATA_TYPE DESIGNATOR>:2= DATA_TYPE (<EXPRESSION>) 


Returns the type bits of <EXPRESSION>. 


DATE 
<DATE FUNCTION 
DESIGNATQOR> ss= DATE 
1 DATE C<DATE FORMAT>» <REPRESENTATION>) 
<DATE FORMAT> ::= JULIAN | MONTH | DAY 1 YEAR 
<REPRESENTATION> 22= BIT 1 DIGIT 1! CHARACTER 


The <DATE FUNCTION DESIGNATOR> returns a bit or character SOniAg. 
which is the date of the execution of the function. 
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DATE and DATE CHONTH» CHARACTER) are Sault eatenes - | 7 
The formats Cin bits) of the returned strings are: 


BIT “DIGIT CHARACTER 


JULIAN CYYDDD)  - 749216 8+12=20 16+24=40 
MONTH CMMDDYY) 4+547=16 B4+84+8=24 164#16#16=48 
DAY CDDMMYY) 54+447=16 84+848=24 16+16416=48 


YEAR CYYMMDD) 7#+445=16 8+8+8=24 16416+16=48 


Examples DECLARE D CHARACTER(5);5 
BD z= DATE CJULIAN»CHARACTER)>; 


DECIMAL CONVERSION 


<DECIMAL CONVERSION | 
DESIGNATOR> ::= DECIMAL (<EXPRESSION>» 
<DECIMAL STRING SIZE>) 


<DECIMAL STRING SIZE> s:= <EXPRESSTON> 


The value of the first <EXPRESSIQN> following the reserved word 
DECIMAL is converted to a string of decimal characterse If the 
value of the <EXPRESSION> generates more than 24 bits» then onty 
the Lowworder 24 bits are used. 


The number of characters returned is given by the value of the 
<DECIMAL STRING SIZE>.~ A maximum of 8 decimal characters wiil be 
returned» even if the vatue of the <DECIMAL STRING SIZE> 1s 
greater. If the <DECIMAL STRING SIZE> is less than the number of 
decimai characters» then characters are truncated from the left. 


DELIMITED _TOKEN 


<DELIMITED TOKEN 
DESIGNATOR>::= DELIMITED_TOKEN C<FIRST CHARACTER>» 
<DELIMITERS>» <RESULT>) 


<FIRST CHARACTER>: c= <IDENTIFIER> 


<DELIMITERS>33= <CHARACTER STRING> 
| i <BIT STRING> 
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<RESULT>33= <IDENTIFIER> 


The <<FIRST CHARACTER> 18s a simple identifier which describes the 
first character to be examined. <DELIMITERS> will generate 16 
bits of informations each of the 88-bit bytes being used as a 
delimiter. For SDtL» <DELIMITERS> wilt be Zs for COBOL» 

a7FO032 CQuote followed by ETX). 


DELIMITED_TOKEN wilt leave on the top of the Evaluation Stack the 
descriptor of the string of characters from Cand including) 
<FIRST CHARACTER> up to Cbut not including) whichever delimiter 
was found. The descriptor of <RESULT> will be replaced by this 
descriptor. The address fieid of <FIRST CHARACTER> wilt be 
changed to point to the delimiter which stopped the scan. 


DISPATCH 
<DISPATCH DESIGNATOR> <:= OLSPATCHC<PORT»CHANNEL>>» 
*<I/0 DESCRIPTOR ADORESS>) 
<PORT»CHANNEL> 225 <EXPRESSION> 


<I/G DESCRIPTOR 
ADDRESS> 3:2 <EXPRESSTON> 


The rightmost seven bits of the value of <PORT» CHANNEL> contain 
the following information from teft to right: 


3 BITS 4 BITS 


> PORT = CHANNEL 3 


The rightmost 24 bits of the vatue of the <I/G DESCRIPTOR 
ADDRESS> 1s the absolute address of the I/0 descriptor. 


Using these two values» an I/O operation is initiated. A bit 
value with the folLowing meanings is returned: 


DISPATCH REGISTER LOCK BIT SET 
SUCCESSFUL DISPATCH 
SUCCESSFUL. DISPATCH» BUT MISSING DEVICE 


Nm © 
bo 
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- €DISPLAY BASE | | 
- DESIGNATOR>?:= -“*DISPLAY_BASE 
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DISPLAY BASE 


This function leaves on the top of the Evaluation Stack a 24-bit» 
selferelative vatue of type dit which is the base-retative 
address of the base of the Display Stack. | 


DYNAMIC MEMORY BASE © 


<DYNAMIC MEMORY 
BASE DESIGNATOR> 33= DYNAMIC _ MEMORY_BASE 


The <DYNAMIC MEMORY BASE DESIGNATOR> returns a 24*bit value which 
is the base relative address of the program's dynamic temory. 
Refer to the SDL S"Language documentation for discussion of the 
use of dynamic memory. 


oo 


EVALUATION STACK TOP a 


<EVALUATION STACK | —— 
TOP DESIGNATOR>::= «EVALUATION _STACK_TOP 


This function leaves on the top of the Evaluation Stack a 24-bit» 
seliferelative value of type bit which is the baserrelative 
address of the top of the Evatuation Stack Cbefore execution of 
this function). 


EXECUTE 


<EXECUTE OPERATOR 
FUNCTION>: 3= 7 EXECUTE C<EXPRESSION LIST>) 


<EXPRESSION LIST>:3= <EXPRESSION> 
1 <EXPRESSION LIST>» <EXPRESSION> 


Note: The EXECUTE function is intended only for use by 
interpreter writers in the experimental design of new 
opcodes. | | 
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The value of the last expression may be expected to be an opcode 
which may then be executed by the interpreter. EXECUTE may be 
used as a Statement as well as a <VALUE GENERATING FUNCTION 
DESIGNATOR>. 


This statement or <VALUE GENERATING FUNCTION DESIGNATOR> when 
used with reieased interpreters witl result in a "3RANCH TO 
INVALID OP CODE™ condition. 


ENN TNC RAEN OCT ST RATED IN 


iS he, eh eh id Sh dl lis SSD cosa natal aha mate the cn ati lah Sth i Saale SE are 


B+ 27 


‘BURROUGHS CORPORATION = | ‘COMPANY CONFIDENTIAL. 


COMPUTER SYSTEMS GROUP © 7 a — 81000 SDL CBNF Version) 
| SANTAL BARBARA PLANT | | | | Ps Se e212 3405 (& 


"EXTENDED ARITEMETIC FUNCTIONS 


cited irate 


FUNC TION>: 3= | <EXTENDED ARITHMETIC FUNCTION DESI GNATOR> 


C<EXPRESSION>» <EXPRESSION>)~ 


<EXTENDED ARITHMETIC | | 
FUNCTION DESIGNATOR>: X_ADD 1 X_SUB I X_MUL I! x_OIV 7 
| i X_MOD 


The indicated operation is performed on the two operandss which 
are treated as bit strings. The operation is performed on the 
full tength of the operands» not just the lLoweorder 24 bits. The 
iength of the result is derived as described below: 


Addition (Subtraction): If the two operands are of different. 
lengths» then the shorter is padded on the left with binary 
zeroes. The Length of the sum (difference) will be equal to the 
length of the longer of the two operands. The result will be in 


two's complement notation. 


Muitiptiication: The fength of the product will be the sum of the 
fengths of the two operands. CThis sum may not exceed 65535 
bits.) | | 


Diviston (Kodulo): The Length of the quotient Cresidue) will be 
length of the dividend Cmodulus).. 


For X_SUB» X_DIVY» and X_MOD» the second argument represents the 
subtrahends» divisors and modulusse respectively. 


HASH CODE 
<HASH CODE DESIGNATOR>::= HASH_CODE (<TOKEN>) 
<TOKEN>33= <EXPRESSTON> 


The HASH.CODE will teave on the Evaluation Stack a descriptor of 
type BIT and length 24. The value will be computed from the 
characters of <TOKEN> and the Length of <TOKEN>. (If <TOKEN> ts 
Longer than 15 characters» only the first 15 are considered.) 

To be effective» the vaiue generated by HASH.-CODE must be used 
modulo a prime number Cwhich is then the hash table size). 
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INTERROGATE INTERRUPT STATUS 


<INTERROGATE INTERRUPT 
STATUS DESTGNATOR> s:= INTERROGATE_INTERRUPT_STATUS 


A 24-bit data item of type bit is returned. The value represents 
the interrupt bits of the M-machinee The applicable M-machine 
interrupt bits are reset. Note that the INCN bits will not be 
resete 


~LAST_LIO STATUS 


<LAST LIQ STATUS | 
DESIGNATOR>:3= _  LAST_LIO_LSTATUS 


Returns the Last logicat I/0 status as type bit with a length of 
RS_LAST_LIO_STATUS_SIZE. 


LENGTH 
<LENGTH DESIGNATOR> 23= LENGTH (<EXPRESSION>) 


The <LENGTH ODESIGNATOR> returns a 24-bit» type bit field 
containing the number of units in the <EXPRESSION>. If the 
<EXPRESSIOQN> is type character» then each character iS a unite 
Otherwiser each bit is a unite 


LIMIT REGISTER 


<LIMIY REGISTER 
DESIGNATOR> s:= LIMIT_REGISTER 


The <LIMIT REGISTER DESIGNATOR> returns a value of type BIT(24) 
which is the base relative address of the program's Run Structure 
Nucleuse For further explanation» please refer to the 81700 MCP 
Manual. 2 | 
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"LOCATION | a | oo at 

<LOCATION DESIGNATOR> ::= LOCATION (<PROCEDURE ICENTIFIER>) | 


1 LOCATION C<SIMPLE IDENTIFIER>) 
| LOCATION C<ARRAY IDENTIFIER>) 


“<PROCEDURE IDENTIFIER> ::= <IDENTIFIER> 


<SIMPLE IDENTIFIER>: 3 <IDENTIFIER> 


<ARRAY IDENTIFIER>s s= | <IDENTIFIER> 


For procedures» the <LOCATION DESIGNATOR> returns a (33-bit value 
(typed BIT) containings from left to right: 


ADDRESS TYPE» CONTAINING 93(3)62a 4 BITS 
SEGMENT NUMBER 6 BITS 
PAGE NUMBER | 6 BITS | 
DISPLACEMENT | 20 BITS 


This 33“bit value is the address of the procedure in question. 


A forward declaration is required only during recompilation or € 
Create"Master for any procedure on which a teocation ts performed. 
An error is given if this is not done . 


For simple and array identifiers» the <LOCATION DESIGNATOR> 


returns a 16-bit value Ctyped BIT) containings from teft to 
right: | 
ADDRESS TYPE CONTAINING 2€2)02 2 BITS 
LEXIC LEVEL o 4 BITS 
OCCURRENCE NUMBER | | 10 BITS 
NAME_OF_OAY 
<NAME OF DAY FUNCTION 


DESIGNATOR> s:= NAME_OF_DAY 


A character string» which is the name of the day of the week» is 
returned as a 9-character stringe The name is teft justified. 


Example: DECLARE DAY CHARACTER(9)3 
«DAY INAME_OF_DAY | 
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NAME STACK TOP 

<NAME’ STACK 

TOP DESIGNATOR>::= NAME_STACK_TOP 


This function leaves on the top of the Evaluation Stack a 24~bit»s 
seifm-relative value of type bit which is the baserrelative 
address of the top of the Name Stack. 


NEXT TOKEN 
<NEXT TOKEN OESIGNATOR>:s= NEXT_TOKEN C<FIRST CHARACTER>» 
| - €SEPARATOR>» <NUMERIC=TO-ALPHA INDICATOR>>» 
<RESULT>) 
<FIRST CHARACTER>: := <IDENTIFIER> 
<SEPARATOR>::= <CHARACTER STRING> 
<NUMERIC@TO*ALPHA 
INDICATOR>::= SET § RESET 


The <FIRST CHARACTER> is a simple identifier which describes the 
first character to be examined. This wiil usualtiy be the first 
character of the tokene The <SEPARATOR> is the token separators 
" * for SDL» “=-" for COBOL» etc. It must be a single character, 
if none 1s neededs use “A™%. <NUMERIC*TO-ALPHA INDICATOR> 

is set if symbols such as 235AB are atitowed. It is RESET 
otherwise. | 


NEXT_TOKEN will eave on the top of the Evaluation Stack the 
descriptor of the next token. This token will be an identifier» 
a number, or a special character. The descriptor of <RESULT> 
will also be replaced by thi#s descriptor. The address field of 
<FIRST CHARACTER> will be changed to point to the character 
foilowing this token. NEXT_TOXEN assumes that <FIRST CHARACTER> 
describes a nonmbdblank character. 
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PARITY ADDRESS 


<PARITY ADDRESS 


DESIGNATOR> :3= - PARITY_ADDRESS © 


For MCP use anly. 


The <PARITY_ADDRESS DESIGNATOR> returns a 24-bit vatue which is 
the address of the first parity error encountered in S5-Nemory. 
If no parity error is founds aFFFFFFa@ is returned. 


PROCESSOR TIME 


<PROCESSOR_TIME FUNCTION GENERATOR> 2:2= PROCESSOR_TIME 


PROCESSOR_TIME witt yield the accumulated processor time since 
BOJ in tenths of a second as a BIT(290) data item. 


fe 


Exampies 


DECLARE (PROC_TIME -HOURS »MINUTES»SECONDS»TENTHS) BITC20)3 
se E£ARLY CODE se 


PROC_TIME PROCESSOR_TIME3 


jt copDE TO BE TIMED x / 
PROC_TIME := PROCESSOR_TIME = PROC_TIMES 

HOURS t= PROC_TIME / 360003 

MINUTES <%= PROC_TIME MOD 36000 / 6003 

SECONDS := PROC_TIME MOD 600 / 103 

TENTHS z=  PROC_TIME MOD 103 


f LATE CODE af 


PROGRAM SWITCHES 


<PROGRAM_SWITCHES 
DESIGNATOR> ::= PROGRAM_SWITCHES 
1 PROGRAM_SWITCHES (<EXPRESSION>) 
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This function is used to read the program switches which have 
been specified by the Program's Parameter Block CPPB)» a control 


card or a SPQ inpute If a parameter is specified» the 
corresponding Switch (C(O through 9) is returned as a 4*bit 
Quantity. A parameter which is less than zero or greater’ than 
nine witl yield a run time error of invatid substring. If no 


parameter is specified» adk ten switches are returned as a 40“bit 
result. SOL provides no means to modify the program switches. 


QEARCH LINKED List 
<SEARCH_LINKED_LIST 
DESIGNATGR> :3= SEARCH _LINKED_LIST 
C<START RECORD>»<COMPARE FIELD>» 
<COMPARE VALUE>»s<RELATION>» 
<LINK FIELO>) 
<START RECORD> ::s= K€EXPRESSION> 
<COMPARE FIELD> 3:= <TEMPLATE> 
<COMPARE VALUE> <:s= <EXPRESSIGN> 
<RELATIGN> :s= | < | <= | = |] /= | >= J D> | 
LSS I LEQ 1 EQL I NEQ 1 
GEQ 1 GTR 1 
<LINK FIELD> 33= <TEMPLATE> 
<TEMPLATE> ss= <ADDRESS GENERATOR> 
le The <START RECORO> is the first structure to be 


examined. Typically» it is an <ADDRESS GENERATOR>» 
but an <EXPRESSIGN> is allowed. 


2 The <COMPARE FIELD> is a template which gives the 
relative offset and size in the structures» of the 24 
Cor tess) bit field being compared with the <COMPARE 


VARIABLE>. 
3% The <COMPARE VALUE> is the value against which the 
specified field in the structure 1s compared. 


<COMPARE YVALUE> 135 considered “on the left™” of the 
relation. 


he The <RELATION> specifies the desired relation in the 
comparison of the two valuese 


5 The <LINK FIELD> is a template which gives’ the 
relative offset and size in the structure» of the 24 
ee Cor less) bit field containing the address of the 
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COMPUTER SYSTEMS GROUP 


Cn oc 


current structure fails). 


A template is an address generator whose address is relative to 


the beginning of a structure rather than base relative. A fietd 
in a structure declared REMAPS BASE has such an address. 


The bast structure in the Linked List contains ail 1 bits in the 
field described by the <LINK FIELD>. | 


The linked List 1s searched until the desired comparison succeeds 
or until the comparison fails with the tast structure. 


If the search succeeds» the base-relative address of the current 
structure is returned as a 24-bit value. If the search fails» 


@FFFFFF2 is returned. 


SEARCH SDL STAcks 


<SEARCH_SDL_STACKS 
SEARCH _SDL_STACKS 

C<STACK BASE>» <STACK TOP>» 
<COMPARE BASE>» <COMPARE TOP>) 


COMPANY CONFIDENTIAL 
a B1000° SDL CBNF Version) | 
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<STACK BASE>ss= SEXPRESSION> 
<STACK TOP> <EXPRESSION> 
<COMPARE BASE>s:= _<EXPRESSION> 
<COMPARE TOP> <EXPRE SSION> : 


The four parameters are expected to 
basesrelative addresses 


descriptors and of an address ranges respectively. The 


wild be searched for 


nonwarrays noneseltfr-relative 
descriptor whose address is within the given range. +S j 


search is successful aC(1)Jlad witl be returneds otherwise» 


wilt be returned. 


generate vatues which 
the base and top of a stack of SDL 
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SEARCH SERTAL LIST 


<SEARCH SERIAL 


LIST DESIGNATOR> :3= SEARCH _SERIAL_LIST (€<SSL COMPARE VALUE>>» 
<SSL COMPARE TYPE>» <SSL COMPARE FIELD>» 


<SSL FIRST ITEM>» <SSL TABLE LENGTH>» 
<SSL RESULT VARIABLE>) 


<SSL COMPARE VALUE> ::= <EXPRESSION> 
<SSL COMPARE TYPE> ::= cles tsetse 1 oet> 
1 LSS 1 LEQ | EQL | NEQ@ ! GEQ 1 GTR 
<SSL COMPARE FIELD>::= <TEMPLATE> 
<SSL FIRST ITEM>22= <ADDRESS GENERATOR> 
«SSL TABLE LENGTH>:?= <EXPRESSION> 
¢$SL RESULT VARIASLE>::= <ADDRESS GENERATOR> 
<TEMPLATE> s:= <ADDRESS GENERATOR> 


SEARCH _SERTIAL_LIST searches a serial List of items beginning with 
the structure described by <SSL FIRST ITEM>. <SStL COMPARE VALUE> 
is compared Cas specified by <SSL COMPARE TYPE>) against the 
field af the field described by <SSL COMPARE FIELD> €<SSL COMPARE 
FIELD> is a TEMPLATE) until a match has deen founds or until <SSL 
TABLE LENGTH> number of bits has been searched. 


When the relation iS noncommutative», the comparisons are made as 
though <SSL COMPARE VALUE> was “on the left” of the relation. 


If the search succeeds» the base relative address of the iten 
containing the successful <SSL COMPARE FIELD> is stored in <SSL 
RESULT VARIABLE> and a 2¢€1)13 is returned. 


[If the search fails» then the end address of the table if stored 
in <SSL RESULT VARIASLE> and a 3(€1)02 is returned. 
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S_MEM. _SIZE> MEM SIZE. 


<MEMORY SIZE | 
DESIGNATOR> :3= S_MEM_SIZE 1 M_MEM_SIZE 


The requested memory size 3s returned as a 24~bit data item of 
type bit. | 


“SORT DELETE 


<SORT_DELETE 
DESIGNATOR> s3=  SGORT_DELETE 
| C(<PARAM1>» <PARAN2>) 


For use by sort only. 


SORT SEARCH 


a 
<SORT_SEARCH : | ee 


DESIGNATOR> s3:= SORT_ SEARCH 
a : | C<TABLE ADDRESS>»<LIMIT>) 


<TABLE ADORESS> 


ee 
ry) 
il 


<ADDRESS GENERATOR> 


<LIMIT> :3= | <EXPRESSION> 
For use by sort only. 


The <SORT SEARCH DESIGNATOR> provides the information to evaluate 
a record for sorting purposes. The <TABLE ADDRESS> contains the 
address» in an array of records» of the first record to be 
examined and the condition under which records witli be selected. 


The <LIMIT> specifies the Last record to be examined. 
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SORT STEP_DOWN 

<SORT_STEP_DOWN 

DESIGNATOR> :3:= SORT_STEP_DOWN 


C<RECORD 1>e<RECORD 2>»e . 
<KREY TABLE ADDRESS> 


<RECORD 1> s::= <EXPRESSION> 
<RECGRD 2> 33= <EXPRESSIOGN> 
<KEY TABLE ADDRESS> ::s= <EXPRESSIGN> 


For use by sort only. 


The <SORT_STEP_ODOWN DESTGNATOR> #£=—provides the information 
necessary to compare two recordse <RECORD 1> and <RECORD 2> are>r 
respectively» the first and second records which are to be 
compared. The <KEY TABLE ADDRESS> specifies the sort key used in 
the comparison. 


SUBT_ UNBLOCK 

<SORT_UNBLOCK 

DESIGNATOR> 3:5 SORT_UNBLOCK C(<MINI FIB ADDRESS>» 
<LENGTH>» <SOQURCE>»<DESTINATION>) 

<MINI FIB ADDRESS> 33= <ADDRESS GENERATOR> 

<LENGTH> 33= <EXPRESSION> 

<SOURCE> 33= <EXPRESSION> 

<DESTINATION> 3:32 <EXPRESSION> 


For use by SORT only. 


The <SORT_UNBLOCK DESIGNATOR> moves a record to or from a buffer» 
updating the buffer pointer and block counte It normatly returns 
a z2eroe When the block count goes to zero» it restores the 
original buffer pointer and btock count» and returns a lp» 
signalling the need for an I[/0. 
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A bit on Tr mini-F IB eee SORT _UNBLOCK to create sort heat 
For this function» it uses the sort key table and selects only. 


the key information to move from the buffer. A value in the 
mini-FIB represents the dength of the receiving field. : 


<SPOQ INPUT | | 
PRESENT DESIGNATOR>2:=— SPO_INPUT_PRESENT 


A spectal» SPO_INPUT_PRESENT>» has been added to attow the 
presence of SPGQ input to be tested before having to perforam an 
accept to the MCP. | : 


SUBBIT AND SUBSTR 


<SUBW“STRING VALUE 

DESIGNATOR> ss <SUB*“STRING FUNCTION IDENTIFIER> 
| C<CSTRING VALUE>»<OFFSET PART>) 

i <SUB"STRING FUNCTION [DENTIFIER> 
C<STRING VALUE>»<OFFSET PART>=>» 


<LENGTH PART>) 


<SUBWSTRING FUNCTION 


IDENTIF IER> SUBBIT 1 SUBSSTR 
<STRING VALUE> ::= <EXPRESSION> 
<OFFSET PART> 33= <EXPRESSTION> 
<LENGTH PART> ::= <EXPRESSION> 


The <SUB@“STRING VALUE DESIGNATOR> and the <SUB“STRING ADDRESS 


BESIGNATOR> are identical except that the former returns a value 
if its <STRING VALUE> is not an <ADDRESS GENERATOR>. Please see 
SUBBIT AND SUBSTR under ADDRESS VARIABLES for the specifics of 
the function. | a. @ 


The folLowing examples iLLustrate some of the uses of the 
<SUB"STRING VALUE DESIGNATOR>: | | 


XISUBSTRCA CAT Be5%10)3 
MAKE_DESCRIPTOR(248a CAT SUBBITCA OR Bs Os» 16) CAT X) lees 
IF SUBSTR(206a CAT ABC» 0) = Y THEN ooe3 : 


rt 
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SWAP 

<SWAP DESTIGNATOR> 3s= SWAP C<ADDRESS GENERATOR>»<EXPRESSION>) 


The length of the value described by the <ADDRESS GENERATOR> is 
used as the length» L» of the data to be SWAPped.j However» if 
the tength of the value is greater than 24 bits» L will be 24 
bits» and only the towtorder 24 bits of the <AODDRESS GENERATOR> 
wilL be modified. 


SWAP is indeed a true swap operation: that is» the items are 
exchanged in one “virtual” memory cycle. This %s necessary for 
the synchronization of independent processes (@egGeen MCP and 
GISMO). 


The rightmost L bits of the value described by the <ADDRESS 
GENERATOR> are isolated» and become the destination fietd. 


The rightmost L bits of the vatue generated by the <EXPRESSION> 
are isolated. Leading zeroes are supplied if the length of the 
value is less than L bits tong. This field is known as the 
source field. 


The source field is stored into the destination field» the 
original value of which is the value returned. The returned 
value is of type bit and of Length L. | 


Examples 
AlQ> | 
IF SWAP CAvil) TREN DG 2.22 ENDs 
ELSE DO eee ENDs 
In the above example,» the ELSE part of the statement 1s 


evaluated» since A was originally set to 0 €ieeer faise).e. At the 
end of the SWAP» 1 has been stored into A» and OQ returned to the 
top of the Evaluation Stack. 
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TIME - 

<TIME FUNCTION _ 

DESIGNATOR> ::= - TIME 

: | 1 TIME C<TIME FORMAT> » <REPRESENTATION>) 
<TIME FORMAT> 23= COUNTER 1 MILITARY | CIVILIAN 
<REPRESENTATION> 23>. BIT 1 DIGIT 1! CHARACTER 


The <TIME FUNCTION DESIGNATOR> returns a bit or character string 
which is the time of the function's execution. The <TIME FORMAT> 
may have three basic formats; | 


COUNTERS Returns the time of day in tenths of seconds. — 


MILITARY: Returns the time of oe in the fatieuine form -- 
HHMMSST (Where T=Tenths of seconds). 


CIVILIAN: Returns HHAMSSTAPCWhere AP=AM OR PM). 


The time of day may be reoresented in either bits» digit Ss» or te 
characters in the following formats: | a 
| BIT | DIGIT CHARACTER 

COUNTER 20 BITS 24 BITS 43 BITS 

MILITARY 5#6464+4=21 84+8+84t4=28 16#16416+8=56 

CIVILIAN ——- & 4O4644416=56 8+84+8+44+16=44 16+164+16+8416=72 
NOTE: TIME and TIME CCIVILIAN» CHARACTER) are equivalent. 
TIMER 

<TIMER DESIGNATOR>::= TIMER 


A value of type BITC24) is returned. The value ts the current 
setting of the TIME register. | , 
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VALUE _ DESCRIPTOR 


<DESCRIPTOR“VALUE GENERATOR 
DESIGNATOR> 33:= VALUE _DESCRIPTOR C<ADDRESS GENERATOR>) 


<ADDRESS GENERATOR> 3:2 See ADDRESS GENERATORS 


The <ADDRESS GENERATOR> is represented by a descriptor at the top 
of the Evaluation Stack. This descriptor is moved to the Value 
Stack. In its place on the Evaluation Stack is teft a descriptor 
describing the one just moved to the Value Stacke 


bad 


The Name-Value bit 1s set in the descriptor tleft in the 
Evaluation Stacke 


WALT 
<WAIT FUNCTION> 3: WAIT <START POSITION> C<EVENT 
LIST>) | 

<START POSITION> :2= [<EXPRESSION>] 1 <EMPTY> 
<EVENT LIST> 2:5 cEVENT> | <EVENT LIST>» <EVENT> 
<EVENT> 225 <SIMPLE EVENT> | <QUALIFIED EVENT> 
<QUALIFIEO EVENT> 3 <SIMPLE EVENT> WHEN <EXPRESSION> 
<SIMPLE EVENT> :2= TIME_TENTHS (<EXPRESSION>) 

1 SPO_INPUT_PRESENT 

1 SPOQ_INPUT_PRESENT 

1 0C_IO_COMPLETE 

| READ_OK C<FILE SPECIFIER>) 

1 WRITE_OK (<FILE SPECIFIER>) 

1 Q_WRITE_OCCURRED (<FILE IDENTIFIER>) 
<FILE SPECIFIER> =: <FILE [DENTIFIER> 


{ <FILE IDENTIFIER> C<EXPRESSION>] 


The WAIT function returns a fixed value which is the ordinal 
position of a true event in the <EVENT LIST>. If no event is 
true» the process will be blocked until one of the events occurs. 
If more than one is trues the value that is returned is the 
position of the first event found true in a left to right 
circular scan starting from <START POSITION>. If <START 
POSITIQN> is empty» zero is assumed. If <START POSITION> is 
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apegeer hae or denuae. to Ke. Ausbee of items in the: <EVENT LIST>» 
the MCP will terminate the job. In the case of a <QUALIFIED. f 
EVENT>» the event will never become true unless the qualifying " 
<EXPRESSION> evaluates to true» ie@er» its Lowest order bit is a 
ONC » | | : ie a 


The various events are true when the condition(s) below are 
satisfied: | | 


EVENT | CONDITIONCS) 


TIME_TENTHS (<EX- 7 The specified number of tenths cf secm~ 
| PRESSTION>) onds have elapsed since the WAIT began 
execution. | 
SPO_INPUT_PRESENT A message from the eka has been 
| queued for the WAITing program. | oo 
DC_IO0_COMPLETE A previously initiated data communications 
| 3 I0 has been completed. 
READ_OK (<FILE The buffer for the specified file contains 


SPECIFIER>) | a record waiting to be read. If en 
{[<EXPRESSION>] is specifieds it is tak, | 
to be a subscript cf a queue file family. 
If the file is 4a queue file family and no 
subscript is specified» the event § is 
always true. ; | 


WRITE_OK (<FILE A buffer for the specified file is empty» 
SPECIF IER>) waiting for a write operation. See above 
| for queue fite families. ; 


Q_ WRITE OCCURRED A write operation has been done (by 
C<FILE ICENTIFIER>) another process) on a member of a queue 
file family named in the time since the 
WAIT began executione This event will be. 
correct only when preceded by 
MESSAGE COUNT. a 


Restrictions: 


ie If TIME.TENTHS is in the List» it must be at the extreme 
ieft. 


2-2 The maximum number of tenths of seconds is 8642000» 
Te@ee 24 hourse x | i 


| 
| 
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120 CONTROL STATEMENTS 


€<I1/Q CONTROL STATEMENT> :3:= <QOPEN STATEMENT> 
<CLOSE STATEMENT> 
<READ STATEMENT> 
<WRITE STATEMENT> 
<SEEK STATEMENT>>; 
<ACCEPT STATEMENT>=; 
<DISPLAY STATEMENT>>; 
<SPACE STATEMENT> 
<SKIP STATEMENT>; 


Each file is numbered sequentially» beginning with zeroe ~ This 
number is the <FILE NUMBER> and will eventually be used as an 
index into the FIB dictionary. The file declaration wilt be used 
to construct an FPB in the code file. 
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<OPEN STATEMENT>3:= 


<OPEN PART>33s= 


<FILE DESIGNATOR>::= 


“OPEN ATTRIBUTE PART> ::= 


<OPEN ATTRIBUTE LIST> ; 


<ATTRIBUTE SEPARATOR> 


<OPEN ATTRIBUTE> 325 


<INPUT@OQUTPUT MODE> 23= 
<LOCK MODE> :s= 
<OPEN ACTION MODE> s3= 


<MFCU MODE>=:= 


<ON BEHALF OF MODE>s= 
<FILE MISSING PART>3s= 
<FILE LOCKED PART>::= 


FORMAT OPTIONS: 


1. OPEN DECLARED_FILE; 


ant am «(ee fe 
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<OPEN PART>3 | | 
<GPEN PART>s <FILE MISSING PART> 
<OPEN PART>s <FILE LOCKED PART>. 
<OPEN PART>s <FILE MISSING PART> 
<FILE LOCKED PART> 


OPEN <FILE DESIGNATOR> 


<OPEN ATTRIBUTE PART> 


<FILE IDENTIFIER> 


<SWITCH FILE IDENTIFIER> C<EXPRESSION>) 


<EMPT Y> 
<OPEN ATTRIBUTE LIST> 
WITH <OPEN ATTRIBUTE LIST> | 


<OPEN ATTRIBUTE> : 
<OPEN ATTRIBUTE> <ATTRIBUTE SEPARATOR> 
<OPEN ATTRIBUTE LIST> 


» 1 <SLASH> 1 <EMPTY> 

<INPUT=<GUTPUT MODE> -—_ 
<LOCK MODE> yy 
<GPEN ACTIQN MODE> _. 
<MFCU MODE> 

<ON BEHALF OF MODE> 

INPUT 1! GUTPUT 1! NEW 


LOCK 1 LOCK.OUT 


NO_LREWIND It REVERSE 


PUNCH 1 PRINT 1 


INTERPRET 1 STACKERS 
ON_BEHALF_OF <EXPRESSION> 
ON FILE_MISSING <EXECUTABLE STATEMENT> 


ON FILE_LOCKED <EXECUTABLE STATEMENT> 


If no attributes are specified» INPUT is assumed. 


ae 
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FOLLOWED BY: : ANO/OR: 

LOCK 

INPUT LOCK_OUT 
Ce OPEN OECLARED_FILE OUTPUT NO_REWIND 

NEW ®* REVERSE 

INPUT» OUTPUT LOCK» NO_REWIND 
3e OPEN DECLARED_FILE WITH OQUTPUT»s» NEW LOCKs REVERSE 


INPUT» QUTPUT» NEW LOCK_OUT» NO_REWIND 
LOCK_OUT» REVERSE 


x NEW alone assumes OQUTPUTs> NEW. 
Note: The combination INPUT» NEW results in a syntax error. 
If the <QPEN AYTTRIBUTE>s have been explicitty or implicitly 


included in the file declarations» then the file need not  0be 
explicitly opened here. 
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CLOSE en - 


<CLOSE STATEMENT: § ss CLOSE <FILE DESIGNATOR> 
: <CLOSE ATTRIBUTE PART>3 


<FILE DESIGNATOR> 33= | <FILE IDENTIFIER> 
- 1 <SWETCH FILE IDENTIFIER> ( <EXPRESSION>) 


<CLOSE ATTRIBUTE PART> ::=  <EMPTY> 
| <CLOSE ATTRIBUTE LIST> 
{ WITH <CLOSE ATTRIBUTE LIST> 


<CLOSE ATTRIBUTE LIST> 33= <CLOSE ATTRIBUTE> 

| 7 i <CLOSE ATTRIBUTE> <ATTRIBUTE SEPARATOR> 
| <CLOSE ATTRIBUTE LIST> 

<ATTRIBUTE SEPARATOR> :3= 9 | SSLASH> 1 <EMPTY> 


<CLOSE MODE> | 
1 CRUNCH | ROLLOUT | PURGE 1! REMOVE 


<CLOSE ATTRIBUTE> 3: 


<CLOSE MODE> ::= —so*REEL | RELEASE | PURGE 1 REMOVE 
1 NO_REWIND 1! LOCK 


ae 
FORMAT OPTIONS: | 


le CLOSE DECLARED_FILE> 
There is no default. If LOCK is specified as part of the 
file attributes» the file is LOCKed if the program 
terminates abnormally. Otherwiser the file is not LOCKed. 
FOLLOWED 8Y AND/OR ONE OF: fe 


0 OR ONE OF: 


| : | REEL 
2e CLOSE DECLARED_FILE ROLLOUT RELEASE 
| CRUNCH PURGE 
IF_NOT_CLOSED REMOVE | 
NO_REWIND 
LOCK 7 
& If more than one option is specifieds onty the final 


one 18 used by the compiler. 
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Files need not be explicitly closed. However» closing a file 
when finished with it will free memory space for other usese 
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READ STATEMENT 


<READ STATEMENT> s:s= 


<READ PART> 33= 


<READ SPECIFIER> ::= 
<FILE DESIGNATOR> ::= 


<DISK READ SPECIFIER> 2:= 


<RECORD ACDRESS PART> s3:= 
<RECORD ADDRESS> ::= 
<REMOTE REAC SPECIFIER> ¢:: 
<REMOTE KEY PART> 3s= 
<REMOTE KEY> ss= 


<QUEUE READ SPECIFIER> 2s= 


<QUEUE FAMILY 
MEMBER PART> 33= 


<QUEUE FAMILY MEMBER> ::= 


<RESULT MASK>s 3:= 


<€READ PART>3 7 
| €READ PART>3<ON SEQUENCE> | 
<READ PART><RESULT MASK>3 <ON SEQUENCE> 
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<READ SPECIFIER> 


<DISK READ SPECIFIER> 
<REMOTE READ SPECIFIER> 
“QUEUE READ SPECIFIER> 


READ <FILE DESIGNATOR> 
(<ADDRESS GENERATOR>) 


<FILE IDENTIFIER> 


1 <SWITCH FILE IDENTIFIER> (<EXPRESSION>) 
READ | 


<FILE DESIGNATOR> 
<RECORD ADDRESS PART> 
C<ADDRESS GENERATOR>) 


<EMPTY> 
C<RECORD ADDRESS>] 


<EXPRESSION> oo 


os f 
Noah af 
ae oA 


READ <FILE DESIGNATOR> 
<REMOTE KEY PART> 
C<ADDRESS GENERATOR>) 


<EMPTY> 
[<REMOTE KEY>] 


<ADDRESS GENERATOR> 
READ <FILE DESIGNATOR> 


<QUEUE FAMILY MENBER PART> 
C<ADDRESS GENERATOR>) 


<EMPTY> 


C[<QUEVE FAMILY MEMBER>] 
<EXPRESSION> 


WITH RESULT_MASK <ADDRESS GENERATOR> 


> a 
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The <READ STATEMENT> provides the necessary information to read a 
file: <A file identifier» record address» data informations and 
instructions to be executed if an endwof-file or a parity error 
is detected. 


The <READ STATEMENT> separates files into four categories: disk 
files» remote files» queue files» and ait others (cards tape» 
papertapes etce)e [If the file attributes indicate a random disk 
file» the user may specify <RECORD ADDRESS>. In all cases» the 
user need onty give the <FILE DESIGNATOR> # £and <ADDRESS 
GENERATOR>. 


If the file is of type REMOTE» and the REMOTE_KEY ATTRIBUTE is 
set then a <REMOTE KEY> may be used. (For the format of thiss. 
see the discussion under REMOTE_KEY in the FILE DECLARATION 
SECTION.) If the REMOTE_KEY attribute is not set» then a <REMOTE 
KEY> may not be usede After performing the read» the REMOTE KEY 
will have deen stored in the field specified as the <REMOTE KEY>. 


If the file is of type QUEUE and is a multicqueue family» then a 
<QUEUE FAMILY MEMBER> may be used.- This is an expression whose 
value will specify which member of the family to read from. If 
this 11S omitted» then the oldest message in atl of the queues 
will be read. 


If the <RESULT MASK> option is used» the accurrence of an 
exception in the mask is signailed by the ON EXCEPTION sequence. 
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"WRITE STATEMENT 


“WRITE PART>3 
1 <WRITE PART>+*<ON SE GUENCE> = 
1 <WRITE PART> <RESULT MASK> 3 
<ON SEQUENCE> | 


<WRITE STATEMENT> 


oe 
eo 
NN 


“WRITE PART> 33= © <WRITE SPECIFIER> 

_ 1 <DISK WRITE SPECIFIER> 

{! <REMOTE WRITE SPECIFIER>~ 
| <QUEVUE WRITE SPECIFIER> | 


WRITE <FILE DESIGNATOR> 

<CARRIAGE CONTROL PART> | | 

(<EXPRESSION>) | | ~ 
1 WRITE <FILE IDENTIFIER> 

<CARRIAGE CONTROL PART> 


<WRITE SPECIF IER> 


ée 
66 
ul 


<FILE DESIGNATOR> :3= FILE IDENTIFIER> 
: | <SWITCH FILE IDENT IFIER> (<EXPRESSION>) 


<CARRIAGE CONTROL PART> ::= <EMPTY> 
I <CARRIAGE CONTROL SPECIFIER> 


<CARRIAGE CONTROL | | ct 

SPECIFIER> 2:= -soNO of SINGLE 1 DOUBLE 1 PAGE a, 
1 <SKIP=TO=CHANNEL> t NEXT 

<SKIP“TO“CHANNEL> :2= <CHANNEL NUMBER> 

<CHANNEL NUMBER> :2= 112 13 Leese ft 12 1 12 


<DISK WRITE SPECIFIER> :2:= WRITE 
<FILE DESIGNATOR> 
<RECORD ADDRESS PART> 


(<EXPRESSION>) 
<RECORD ADDRESS PART> 32= <EMPTY> : 
| | C<RECORD ADDRESS>] 
- €RECORD ADDRESS> ::= <EXPRESSION> 
<REMOTE WRITE 
SPECIFIER>::=_ WRITE <FILE DESIGNATOR> 
<REMOTE KEY PART> 
C<EXPRESSION>) 
<REMOTE KEY PART>::= “<EMPTY> 


| L<REMOTE KEY>] 


<REMOTE KEY>ss= ~SADDRESS GENERATOR> 


<QUEUE WRITE 
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SPECIF IER>:3= WRITE <FILE DESIGNATOR> 


<QUEUE FAMILY NEMBER PART> <TOP> 
C<ADDRESS GENERATOR>) 


<FILE DESIGNATOR>:3= <FILE [DENTIFIER> 
1 <SWITCH FILE IDENTIFIER> C<EXPRESSION>) 


<TOP> <~<= <EMPTY> 1! TOP 


<QUEUE FAMILY | 
MEMBER PART>:3:= <EMPTY> | 
1 C<QUEUE FAMILY MEMBER>] 


<QUEUE FAMILY MEMBER>::= <EXPRESSION> 


“RESULT MASK>53= | WITH RESULT_MASK <AQORESS GENERATOR? 


The <WRITE STATEMENT> provides the necessary information to write 
a file. The <WRITE STATEMENT> treats disk files separately from 
other fiite types by allowing the user the option of specifying 
<RECORD ADORESS> on his random disk files. YThe <CARRIAGE CONTROL 
PART> is intended for use with a printer file. 


If the file is of type REMOTE» and the REMOTE_KEY attribute is 
set then a <REMOTE KEY> say be used. (For the format of this» 
see the discussion under REMOTE_KEY in the FILE DECLARATION 
section.) If the REMOTE_KEY attribute 1s not set» then a <REMOTE 
KEY> may not be used. The <REMOTE KEY> will specify the terminal 
to which the write is to be performed. 


If <DISK WRITE SPECIFIER> is used when the actual device is a 
data recorders the <RECORD ADDRESS> will be used to select a 
stacker. 


If the file is of type QUEUE and is a multisqueue family» then a 
<QUEUE FAMILY MEMSER> may be used. This 3s an expression whose 


value will specify which member of the family to write to. If 
TOP is specified» the message will be written to the front of the 
queue. 


If the <END-OF “PAGE PART> is set in the file attributes» then 
when endwof~page is detected on a printer file» the <EQF PART> 
will be executed. This facilitates» for example» printing totals 
and/or headings without keeping a Line counter. 
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If the <RESULT MASK> option 1s used» the occurrence of an. 
exception in the mask is signalled by the ON EXCEPTION sequence. 


EXAMPLE: 


WRITE PRINTOUT SINGLE CPRINT_LINE)Ds 
ON EOF DOs. 
WRITE PRINTOUT? Z SKIP A LINE: 
WRITE PRINTOUT PAGE CTOTALS)>; 
WRITE PRINTOUT DOUBLE CHEADER); 
END> 
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SEEK STATEMENT 


<SEEK STATEMENT> 3s= SEEK 
<FILE DESIGNATOR> 
C<RECORO ADDRESS>] 


<FILE DESIGNATOR>::= FILE IDENTIFIER> 


1 <SWITCH FILE IDENTIFIER> C<EXPRESSION>) 


<RECORD ACDRESS> :3= <EXPRESSTON> 


The <SEEK STATEMENT> calls up a record from.a random disk file in 
preparation for a read on that recorde This statement should 
only be used with disk files that are being read using a randon 
access technique. 


A <SEEK STATEMENT> performed immediately prior to a <READ 
STATEMENT? is less effective than merely reading the record. 
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ACCEPT STATEMENT — 


<ACCEPT STATEMENT> z2= ACCEPT <ADDRESS GENERATOR> 


The <ACCEPT STATEMENT> causes the execution of a program to halt — 
untid the appropriate information is entered via the SPO by the 


operator. The message keyed in wilt be read into the area 
specified by the <ADDRESS GENERATOR> following the reserved word 


See ADDRESS VARIABLES for the syntax of the <ADDRESS GENERATOR>-~ 


a 
- 
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DISPLAY STATEMENT 


<DISPLAY STATEMENT> 3 3= DISPLAY <EXPRESSTION> 
| <CRUNCH SPECIFIER> 


<CRUNCH SPECIFIER> :3= <EMPTY> 
1 » CRUNCHED 


The <OISPLAY STATEMENT> prints an output message on the SPQ. As 
noted» the <CRUNCH SPECIFIER> is optional. If » CRUNCHED is 
specified» the system witli delete trailing Blanks and substitute 
one blank for each occurrence of multiple embedded blanks. 
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SPACE STATEMENT = 


<SPACE STATEMENT> 33= 


<SPACE PART> :3= 


<FILE DESIGNATOR> ::= 


<SPACING SPECIFIER> ¢:= 
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<SPACE PART>; 


<SPACE PART>$ <ON SEQUENCE> 


SPACE <FILE DESIGNATOR> 


<SPACING SPECIFIER> 


<FILE IDENTIFIER> | | 
<SHITCH FILE IDENTIF IER>( <EXPRESSION>) 


<EXPRESSION ! TO <EXPRESSION> 
TO_EOF 


“The <SPACE STATEMENT> allows the user to skip over certain 
records %n a sequential file. 


The <SPACING SPECIFIER> may take three formas. An <EXPRESSION> 
aione will indicate the number of records to be spaced. It may 
be a negative number indicating reverse spacing. TO <EXPRESSION> 
wilt always be a positive number and indicates the number of the 


record to space toa. TO_EOF. 


current ende 


will cause the file to space to its 
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SKIP STATEMENT 


<SKIP STATEMENT> ss= SKIP <FILE IDENTIFIER> TO <CHANNEL NUMBER> 


<FILE DESIGNATOR> :3= <FILE IDENTIFIER> 
| <SWITCH FILE [DENTIFIER> C<EXPRESSION>) 


oe 


<CHANNEL NUMBER> 3:= 11214 3 tf ese 1 11 I 12 


The <SKIP STATEMENT> causes the line printer to skip to a 
specified channel number on its carriage tapee The channel 
numbers controt the vertical spacing of data on a printed page 
and are defined by the carriage tape on the device. 
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oN SEQUENCE 
<ON SEQUENCE> :2= = =~—S«<ON CLAUSE> <EXECUTABLE STATEMENT> 


1 <ON SEQUENCE> <ON CLAUSE> <EXECUT= 
TABLE STATEMENT> | 


<ON CLAUSE> 3: ON EOF 1 ON INCOMPLETE_10 
| 1 GON EXCEPTION 


An ON SEQUENCE is used to examine the status of the I/0 requested 
by the preceding statement. When any of the <ON CLAUSE>s are 
true» the corresponding <EXECUTABLE STATEMENT> will be executed 
before proceedinge OQniy one condition wiil be true. 


The <EXECUTABLE STATEMENT>s of the <ON SEQUENCE> are considered 
subordinate to the <WRITE STATEMENT>. Therefore» segmentation of 
these statements is temporary (See THE SEGMENT STATEMENT). 


Note: Ee wosnti one: may be masked by the EXCEPTION_MASK clause in 
the file declaration. 
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EXECUTABLE STATEMENTS 


<EXECUTABLE STATEMENT 
LIST> <s3:= <EXECUTABLE STATEMENT> 
1 <EXECUTABLE STATEMENT> 
<EXECUTABLE STATEMENT LIST> 


<EXECUTABLE STATEMENT> 3s3s= <O0 GROUP>; 

<GROUP TERMINATION STATEMENT>>; 
<IF STATEMENT>> 

<CASE STATEMENT>> 

<ASSIGNMENT STATEMENT>; 

<REFER STATEMENT >; 

<REDUCE STATEMENT>>; 
<EXECUTE*PROCEDURE STATEMENT>>; 
<EXECUTE*FUNCTION STATEMENT>; 
<I/Q CONTROL STATEMENT> 
<MQODIFY INSTRUMENTS>> 

<NULL STATEMENT> 

<FILE ATTRIBUTE STATEMENT>> 
<STOP STATEMENT>; 

<ZIP STATEMENT >; 

<SEARCH STATEMENT>> 

<ACCESS FILE HEADER STATEMENT>>, 
<ARRAY PAGE TYPE STATEMENT>> 
<COROUTINE STATEMENTS; 
<SEGMENT STATEMENT> 
<EXECUTABLE STATEMENT> 


<ASSIGNMENT STATEMENT> o3= SEE ASSIGNMENT STATEMENTS 
AND EXPRESSIONS 


<I/0 CONTROL STATEMENT> s:= SEE I/0 CONTROL STATEMENTS 


<SEGMENT STATEMENT> s2= SEE THE SEGMENT STATEMENT 


Ee rer ae ee ee eee nee ee ete eee —: reine": ce eae aR aL 
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- pO SROUPS 


= _ | - <GROUP HEAD> 


<DO GROUP> : 
| <GROUP BODY> 


<GROUP HEAD> s:= <GROUP NAME> 
| <FOREVER PART>;3 
<GROUP NAME> ::= po 
, | { DG <GROUP IDENTIFIER> 
<FOREVER PART> ::= <EMPTY> 
i FOREVER ~ 
<GROUP IDENTIFIER> 335 <IDENTIFIER> 
<GROUP SODY> ::= - <EXECUTABLE. STATEMENT LIST>. 


<GROUP ENDING> 
<GROUP ENCING> 3:= END | | 
| | END <GROUP IDENTIFIER> 


The <DO GROUP> is a coltection of <EXECUTABLE STATEMENT>s which 
functions as a routine. It is executed once unless FOREVER 


appears after the <GROUP NAME>. | 


If FOREVER is present» the <DO GROUP> will be executed 


iteratively untit a specific condition is met. Oniy a <&GROUP 
TERMINATION STATEMENT> CUNDOD) or a <TYPED PROCEDURE RETURN 
STATEMENT> CRETURN) can get the pregran out of this Loop. See 


a following examples 


DO THIS FOREVER; 
READ CARD CA)s> ON EOF UNDOs 
IF 55 GTR BUMP X 
THEN WRITE PRINTER CA)> 


ELSE DQ> 
Xii> 
WRITE PRINTER PAGE CA)> 
END» 
END THIS» 


If it 3s necessary to execute the statements in a <DO GROUP> from 


different points in the program» more efficient code is generated 


by making the body of the group a procedure rather than by 


repeating the <DO GROUP>. 
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RESTRICTIONS: 

1. [If a <GROUP [DENTIFIER> is included in the <GROUP 
NAME>» it must also appear in the <GROUP ENDING>. 

a If the <GROUP NAME> does not include an identifier>» 
the <GROUP ENDING> aust not contain one. 

3e FOREVER is not a reserved word and may appear as the 
<GROUP IDENTIFIER>. DO FOREVERS is considered to be 
the <GROUP HEAD> of an unnamed» iterative <D0O 
GROUP>. DO FOREVER FOREVER is a Legal heading for a 
Named» iterative group. 

Ls Nested <00 GROUP>s may not  =have duplicate 
identifiers. If this oscurss a warning message wiil 
appear on the program Listing. 

py <00 GROUP>s may be nested 32 leveis deenp.w Howevers a 


<GROUP TERMINATION STATEMENT> can UNDO only a maximua 
of 16 levels. 


Sa na ten ao re aa ce nen en raneapcictaStaScAM LAO SISSIES EAA te SOG NS RE TS a a saa deren 
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UNDO 


-<GROUP TERMINATION | 
STATEMENT> t2= UNDO | 
| | UNDO <GROUP I DENTIFIER> 


<GROUP IDENTIFIER> ::= <IDENTIFIER> 


The <GROUP TERMINATION STATEMENT> will cause the execution of a 

 *<DOQ GROUP> to cease» and witl transfer controt to the next 
statement following the <DO GROUP> which has been UNDONE. The 

Statement may take one of three forms: ot a 


le UNDO witt transfer controt cut of the <DO GROUP> 
which contains the statement. | 

Ze YNDO <GROUP IDENTIFIER> takes control out of the <0O0 
GROUP> specified by the identifier. 

5 Another forms» UNDOC*#)» is now considered obsolete. 
It transferred control out of the outermost <00D 
GROUP>. | 


Note: UNDO <IDENTIFIER> can undo a maximum of 16 Levels. 


EXAMPLE: 
i. PO ONE> 
Ze DO TWO FOREVER; 
30 IF <EXPRESSION> THEN 
Le | DG THREE> 
Se 3 ~—~CASE <EXPRESSION>; 
Oe | UNDOs /* SAME AS UNDO THREE>s «#/ 
7 UNDG TWO, 
8e END CASE> 
96 END THREE; 
10. END TWO> 


11. END ONES 


Execution of tine 6 transfers control to line 10. 
Execution of line 7 transfers control to the statement 
following line 11. 


oN 


ie Z 
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IE STATEMENT 


<IF STATENENT> 3s= <IF CLAUSE> 
| <EXECUTABLE STATEMENT> 
1 <IF CLAUSE> 
<EXECUTABLE STATEMENT> 
ELSE <EXECUTABLE STATEMENT > 


<IF CLAUSE> 3:= IF <EXPRESSION> THEN 


The <EXPRESSION> is evaluated. If the towrorder bit of the 
result is 1 Ci-@ep true)» the statement following THEN is 
executed. If the Lowcrorder bit is 0 Cieew» false)» the statement 
following ELSE Cif present) is executed. If the resuit§ of 
the<EXPRESSTION> is false» and the ELSE part is omitted» control 
1s transferred to the next statement after the <IF STATEMENT>. 


<IF STATEMENT>s may be nested. The outermost <IF CLAUSE> and the 
corresponding ELSE» if any» are on Nesting Level O. The 
<EXECUTABLE STATEMENT>s following THEN and ELSE are on Nesting 
Level 1. Nesting may be no deeper than 32 levels. 


When using nested <IF STATEMENT>ss the user must maintain 


correspondence between the delimiters THEN and ELSE oan each 
levei. The innermost ELSE will always be associated with the 


innermost THEN. From this point continues an outward progression 
C1 ee» from highest nesting ievel to lowest) of THEN“ELSE 
association. 


Thus» if an <IF STATEMENT> on Nesting Level N is to have an ELSE 
associated with its» then every <IF STATEMENT> on a nesting Level 
greater than N must also have ELSES associated with theme If the 
user wishes to execute nothing on a false conditions then ELSE 
followed by a <NULL STATEMENT> may be used. 


damm tsainvioaraharbard 
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EXAMPLES 


Let E-l» E-2» E-3» and E-4 be <EXPRESSION>s» 
and S"4 be <EXECUTABLE STATEMENT>s. 


oO es a | 
THEN IF E-e2 
THEN IF E*3 
THEN IF E=4 
THEN S45 
ELSE> 
ELSE. S=3> 
ELSE S2> 


All statements here are the IF*THEN“ELSE type>, 
IF which has no corresponding ELSE. 


Pe Se 2212 7a9> (G) 


and let S“25 S523» 


except the first 
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CASE SIAIEMENT 


-<CASE STATEMENT> :s= <CASE HEAD> 
<CASE 30DY> 
<CASE HEAD> 23= CASE <EXPRESSION> 
<CASE BODY> 3:= <EXECUTABLE STATEMENT LIST> 


<CASE ENDING> 


<CASE ENDING> 33= | END CASE 


The <EXPRESSION> serves as an index into the List of <EXECUTABLE 
STATEMENT>s. The statement selected is executeds and the others 
ignorede Control is then transferred to the statement following 
the <CASE ENDING> unless» of courses» the statement causes a 
RETURN or an UNDO to some other location. 


If there are N number of statements in the lists then the range 
of the value of the <EXPRESSION> may be from 0 through Nwi.e 


The Statements in the list may be any legat <EXECUTABLE 
STATEMENT> allowed in SOL. If the uSer wishes to execute nothing 
in a given casep the <NULL STATEMENT> is an appropriate 
statement. : 


“abies Peta ue 2 ere SiN a itt si hai Soe, 4 suet ee ed Fok tte pe eh ee eee he me ali ala ce pele neem ee btn per Se oly ee me Lag he news ened aii es te Bg eo Deel an we nad loratien sFegelt me ark ainad ters te « 
pial Gabe ceis Wie ysdac hilo! alban wnat eatimaniatan oil dabei stilted aslo nite ly snag aan eat no So Saalteuelstoe wet nna Mi ie RamaSiCe lim TO a tt i ab SS a a ta ah a i sn rte she te tats 2 tttisattnsta tc? ; 
ioe a8 _ : ar a Bh oes ore 
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REEER SIAIEMENI 


<REFER STATEMENT> 22> REFER <REF VAR> TO <ADDRESS GENERATOR> 


| <REF VAR>33= OO €I[DENTIFIER> 


The statement wiit make <ADDRESS GENERATOR> become the new 
referent of <REF VAR>. Since an <ADODRESS GENERATOR> in SDL can 
locate any arbitrary area of memory (Cusing MAKE.DESCRIPTOR> 
indexing» etc)» the reference variable may do likewise» but in 
UPL the restriction to a safe subdset of <ADDRESS GENERATOR>'s 
aiso guarantees the safety of reference variables. 


The only exception to this safety is the classic dangling 
reference problem: Suppose» white executing a lexic Level one 
procedures that a reference variable declared at lexic level zero 
is bound to a Locaily declared referent. $sIf that reference 


variable is then used after the procedure is exited» its referent | 


Will not exist and an unpredictable piece of data or garbage wilt 
be accessed. , 


Technically» this error can only be detected at run time» but its 
occurrence can be precluded altogether by making a strong 
restriction in the syntax: the lexic tevel of the <ADDRESS 
GENERATOR> may not be greater than that of <REF VAR>. This 
cannot be checked for some <ADDRESS GENERATOR>s>» notably 
MAKE.DESCRIPTOR» but it can be checked in all cases for UPL. 


An <ADDRESS GENERATOR>» NULL» is available so that reference 
variables may be rebound to such. Testing for NULL is done by 
checking for tength of zero. 


B1000 SDL CBNF Version) 
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REDUCE STATEMENT 


<REDUCE STATEMENT> 23= REDUCE <OBJECT REFERENCE> <SETTING 
RESULT REFERENCE PART> UNTIL 
<FIRST OR LAST> <EQL OR NEQ OR IND 
<EXPRESSTON> 
<ON EQS_CYCLE PART> 

<OBJECT REFERENCE 3s= <IDENTIFIER> 


<SETTING RESULT REFERENCE PART> s3= <EMPTY> 1! SETTING <RESULT 
REFERENCE> 


<RESULT REFERENCE> 23= <IDENTIFER> 
<FIRST OR LAST> ss= FIRST 1 LAST 


<EQL GR NEG OR IN> 33= EQL 1 NEQ | IN $§ = | /= 


<ON EDS_CYCLE PART> s:= <EMPTY> 1 GN EOS_CYCLE <EXECUTABLE STATEMENT> I 


ON EOS <EXECUTABLE STATEMENT> 


Reduction is a fiexibie and efficient aeans (for scanning 
character strings which uses reference variables rather than 
integers as pointers which select substrings. The basic function 
of reductian is to truncate a reference variable from the left 
until its first character satisfies some conditione No change is 
actually made to the datas the reference variable is simply 
rebound to a substring of its former referent. For example» the 
original referent of Rl is a string “ABCDEF™. 


* ABCOEF ®# 
k €& #£& &« & & & & & 
ie 
fe 


R1 
After the statement 


REDUCE Ri UNTIL FIRST = "ODO" 


is executed the referent of RL is "DEF". 


ABCOEF 
ie a 
kktkeke 

ke 


Ri 
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ae the. character string deleted is of interest» another reference 
may be referenced to it by the variation: | 


REDUCE R1 SETTING R2 UNTIL FIRST = "D3. 


Starting with Ri's original referents "ABCDEF"» this leaves. 


*ABC*# DEF & ; } 


kkhhkkkhkhhe kekhk hk 
rs | “ 
& fe 
R2 Ri 


thus dividing the original string according to the condition 
FIRST = a | 


The entire operation may also be done in reverse (scanning right 
to Left) in which case the Last character of Ri must satisfy the 
condition. 


REDUCE RL SETTING R2 UNTIL LAST = "D"3 
results in the new binding 


ie ABCO*x EF ® 


RekkekeKKEKREK KKXEREEK 


_ rs 
fe | t 
R1 R2 


Three types of conditions may be specified: 


= scans for a character which is the same as the specified 
character. 


/= scans for a character which is different fromthe 
specified character. 


IN scans for a character whichse when translated to by the 
specified bit tables» yields a a€1)19d. See CHAR“TABLE for a 
convenient means for specifying bit tabie constants. 


Senate sialic a Ot achas wate eit a cinGacicearin teat a ad th lt ES ES ctl an Lae alah SORE ee A a AN Sa i oh ili acta iseim aceasta tied east 
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In the first two cases» a single character must be given as a 
scan argument. In the third case» a bit string of length 256 
bits must be given as a table. 


The <EXPRESSION> must evatuate to either CHARACTERCI) or BITCS) 
or BITC256) depending upon the condition type. Improper type an 
this <EXPRESSION> ais the only possidle runstime error from 
reduction. 


END QE STRING 


The REDUCE statement terminates when either a character 
satisfying the condition is found or the Length of the <OBJECT 
REFERENCE> has been reduced to zeroes ie@e» it is NULL. Since the 
latter termination is often of separate interest its occurrence 
may be detected using syntax analogous to that for detection of 
special conditions on I/0 statements. The syntax was shown 
abovee The <EXECUTABLE STATEMENT> is executed if and only if the 
original reference has been reduced to NULL. CIf a <RESULT 
REFERENCE> was specified» it wilt then refer to the original 
referent of the <O8JECT REFERENCE>.) 


Frequently» the enderof-string code will reset the <QBJECT 
REFERENCE> to some new data» perhaps by reading a new carde In 
this case» control returns from the EQS_CYCLE back to the REDUCE> 
thus effecting scanning. over record boundaries without additionat 
coding. If the <OBJECT REFERENCE> remains NULL after execution 
of the EGS_CYCLE codes control passes to the following statement 
as usual. These semantics may seem awkward at first» but they 
have the desirable effect of guaranteeing the proper exit 
conditions of a REDUCE statementrcteither the condition is 
satisfied by the first Cor tlast) character of the <O3JECT 
REFERENCE> or the <OBJECT REFERENCE> is NULL@"regardless of 
whether or not an EOS_CYCLE has been specified. This principle 
can be violated onty by a branch instruction CUNDO» RETURN) in 
the £0S code. | 


If ON_EOS is used in place of EOS_CYCLE>» then controt always 
passes to the next statement. 


pr EEE Smeal A i A SR AE NN 
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“MODIFY STATEMENTS CLEAR» BUMP» DECREMENT) — 


<MODIFY INSTRUCTION> :2= <CLEAR STATEMENT> 
| | | <BUMP STATEMENT> © 
| <DECREMENT STATEMENT> 


<CLEAR STATEMENT> 32 CLEAR <ARRAY IDENTIFIER LIST> 

<ARRAY IDENTIFIER LIST> :2= <ARRAY IDENTIFIER> 

| 1 <ARRAY IDENTIFIER>> | 
<ARRAY IDENTIFIER LIST> 


As the syntax tiIndicates»s the <CLEAR STATEMENT> may only clear 
arrayse IEIf the array has been declared bit or fixed» zeroes are 
moved to each element. If it was dectared as characters blanks 
are moved to each elemente Paged arrays may not be cieared. 


<BUMP STATEMENT> 33= BUMP <ADDRESS VARTABLE><MODIFIER> 


“ADDRESS VARIABLE> i:3= See ADDRESS VARIABLES 


<MODIFIER> 2:= <EMPTY> | ran 
| | { BY <EXPRESSION> = 


<DECREMENT STATEMENT> 33= DECREMENT <ADDRESS VARIABLE><MODIFIER> 


The bump and decrement statements perform the same functions as 
their counterparts in the <EXPRESSION> CBUMPOR and DECREMENTOR). 
See those sections for specific usage. Since these constructs 
exist as statements in their own rights» and not merely as parts 
of the <EXPRESSION>» they are inciuded here. | 
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NULL STATEMENT 


<NULL STATEMENT> 3:= 


‘ee 


The semiscoton is considered to be a statement in its own right. 
It may be used in any construct where the syntax requires that an 
<EXECUTABLE STATEMENT> be present» but the user wishes to execute 
nothinge It is most commonly used in the <IF STATEMENT> and the 
<CASE STATEMENT>» but may also be functional in the read» writers 
and space statements. Refer to the individual descriptions for 
more specific detaiis. 


EXAMPLE : 


CASE <EXPRESSION>?3 
IF <EXPRESSION> THEN? ZCASE 0 
ELSE <STATEMENT>3 | 
: ZCASE 1 
DO; ZCASE 2 
_ <EXECUTABLE STATEMENT LIST> | 
ENOS 
END CASES 


Notice that the above <CASE STATEMENT> contains three <EXECUTABLE 
STATEMENT>s3 An <IF STATEMENT>» a <NULL STATEMENT>» = and a <00 
GROUP>. If tne vatue af the <EXPRESSION> fotlaowing CASE 1s Is» 
then nothing is executed. In additions the + following THEN is 
a <NULL STATEMENT>. 
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<FILE ATTRIBUTE 
STATEMENT> s::= 


<FILE DESIGNATOR> 3:= 


- <DYNAMIC FILE 
ATTRIBUTE LIST> <ss= 


<DYNAMIC FILE 


ATTRIBUTE> 
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CHANGE <FILE DESIGNATOR> 


TO C<DYNAMIC FILE ATTRIBUTE LIST>) 


<FILE IDENTIF IER> 


<DY NAMIC 


<DYNAMIC 


<DYNAMIC 


<DYNAMIC 
<DYNAMIC 
<DYNAMIC 
<DYNAMIC 
<DYNAMIC 
<DYNAMIC 
<DY NAMIC 
<DYNAMIC 
<DYNAMIC 
<DYNAMIC 
<DYNAWIC 
<OYNAMIC 
<DYNAMIC 
<DYNAMIC 


<DYNAHIC 
<DYNAMIC 


<DYNAMIC 
<DYNAMIC 
<DYNAMIC 
<DYNAMIC 


<SWITCH FILE IDENTIFIER> ( <EXPRESSION>) 


FILE ATTRIBUTE> 
FILE ATTRIBUTE>» 
FILE ATTRIBUTE LIST> 


MULTI-FILE IDENTIFICATION PART> 
FILE IDENTIFICATION PART> 


PACK_ID PART> 

DEVICE PART> 
TRANSLATION PART> 
FILE PARITY PART> 
VARIABLE RECORD PART> 
LOCK PART> 

BUFFERS PART> , 

SAVE FACTOR PART> 


RECORD SIZE PART> 


RECORDS=PER-BLOCK PART> 
REEL NUMBER PART> 
NUMBER“OF “AREAS PART> 
BLOCKS“PER“AREA PART> 
ALL“AREAS“AT“OPEN PART> 
AREABY-CYLINDER PART> 
EU_SPECIAL PART> 
EU_INCREMENTED PART> 
USE_INPUT_BLOCKING 


DESIGNATOR PART> 


cles mparnmamacnts« 
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<DYNAMIC MULTI“PACK PART> 
<OYNAMIC END“OF*PAGE PART> 
<DYNAMIC OPEN-OPTION PART> 
<OYNAMIC REMOTE“KEY PART> 
<DYNAMIC NUMBER-OF*STATIONS PART> 
<DYNAMIC QUEVE*FAMILY“SIZE PART> 
<DYNAMIC FILE TYPE PART> 
<DYNAMIC WORK FILE PART> 
<OYNAMIC LABEL TYPE PART> 
<DYNAMIC INVALID CHARACTER 
REPGRTING PART> 

<DYNAMIC OPTIONAL FILE PART> 
<DYNAMIC SERIAL NUMBER PART> 
<DYNAMIC EXCEPTION MASK PART> 
<OYNAMIC QUEUE SIZE PART> 
<DYNAMIC HEADER PART> 

<DYNAMIC SOFT TRANSLATE PART> 
<DYNAMIC HOST_NAME PART> 
<DYNAMIC OPEN_ON_BEHALF_OF PART> 


mm lm eb om ow lee Ue Oe 


The <FILE ATTRIBUTE STATEMENT> atlows the user to dynamicaily 
change the attributes of his file during the execution of his 
programe This statement may occur at any point tn the proagrame 
but the change will not become effective until the file is 
opened. That. is» if the file in question is open when the <FILE 
ATTRIBUTE STATEMENT> is executed» then the change will not occur 
until the file is closed and reopened. | 


Each <OYNAMIC FILE ATTRIBUTE> should be consistent with the 


foraat and restrictions of its counterpart Listed in the FILE 
DECLARATIONS. Exceptions to this are specifically stated below. 


If a <DYNAMIC FILE ATTRIBUTE> is omitted» the attribute remains 
as it was previously set. 


It should be noted that the following process 1s mandatory when 
changing the attributes of an open file which is to be reopened: 


1. Close the file with an attribute which causes space for the 
FIB to be returned: ie8e» LOCK» RELEASE» etc. CIf CLOSE is 
used without attributes» the FIB will not be rebuilt  =froa 
the FPB» and the attribute will remain unchanged). 


2e Change the desired attributes. 


3e¢ OQpen the file. 


sunbrustterieimetiS plegninacetinetmne = inte cee et ee ee 
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<DYNAMIC MULTI“FILE - 
IDENTIFICATION PART> ss= MULTI. FILE. ID ¢= 
ae <DYNAMIC MULTI-FILE IDENTIFICATION> 
<DYNAMIC MULTI“F ILE IDENTIFICATION> st= <EXPRESSION> 


<DYNAMIC FILE IDENTIFICATION PART> t= FILE_ID := <OYNAMIC FILE 
IDENTIFICATION> ; ae 


<DYNAMIC FILE IDENTIFICATION> s2= <EXPRESSION> 


<DYNAMIC PACK_ID PART> 3:s= PACK_ID s= 
sa <DY NAMIC PACK IDENT IFICATION> 


<DYNAMIC PACK IDENTIFICATION> ss= <EXPRESSION> 
The <EXPRESSION>s of these four attributes are each assumed to be 
character stringse > If they are bits» however» they will be 
converted to characters in the following manner: 

1. The bits are left justified. 

Ze Trailing blanks are appended. However» if the bits 


are not a multiple of 8» then the string wiit appear 
to be invalid characters. | 


EXAMPLE: 
CHANGE F TO (FILE_ID := aF0E2)3 


WILL RESULT IN THE <FILE LDENTEFICATION> 
BEING EQUAL TQ: 


2F0E404040404040404042 


ci ’, 
: 2 


A 4 
i ‘ / 
Nh ot 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


PeSe 


33 DEVICE s= 


<DYNAMIC DEVICE PART> 


<DYNAMIC DEVICE SPECIFIER> *s= <EXPRESSION> 
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<DYNAMIC DEVICE SPECIFIER> 


The lLowctorder 10 bits of the <EXPRESSION> must be coded as 
follows (Cwhere the variant is the high order four bits» and the 
hardware is the tlowwtorder six): 
DEVICE HARDWARE VARIANT 
CARD 21 
TAPE ef 
TAPE_9 28 
TAPE_7 25 
TAPE_PE 26 
TAPE_NRZ 24 
DISK 17 Q = SERIAL 
1 = RANDOM 
DISK_PACK 16 CSAME AS OISK) 
DISK_FILE i2 CSAME AS DOISK) 
DISK_PACK_CENTURY 15 CSAME AS OISK) 
DISK_PACK_CAELUS 14 CSAME AS DISK) 
PRINTER 8 0 = BACKUP TAPE OR DISK 
1 = BACKUP TAPE 
2 = BACKUP DISK 
3 = BACKUP TAPE OR OISK 
4 = HARDWARE ONLY 
5 = BACKUP TAPE ONLY 
6 = BACKUP DISK ONLY 
7 = BACKUP TAPE OR OISK 
PRINTER FORMS | 8 8 # PRINTER VARIANT 
CARD_READER | 2i | 
CARD_PUNCH 2 CSAME AS PRINTER) 
CARD_PUNCH FORMS 2 CSAME AS PRINTER FORMS) 
PUNCH 2 CSAME AS PRINTER) 
PUNCH FORMS 2 CSAME AS PRINTER FORMS) 
READER_PUNCH_PRINTER 5 CSAME AS PRINTER) 
READER PUNCH _PRINTER FORMS 5 CSAME AS PRINTER FORMS) 
PUNCH PRINTER 5 CSAME AS PRINTER) 
PUNCH PRINTER FORMS 5 CSAME AS PRINTER FORMS) 
PAPER_TAPE_PUNCH 20 CSAME AS PRINTER) 
PAPER_TAPE_PUNCH FORMS 20 CSAME AS PRINTER FORMS) 
PAPER_TAPE_READER 6 
READER_96 19 
SORTER_READER 10 
READER_SORTER 10 
CASSETTE 30 
REMOTE 63 
QUEUE 61 
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<DYNAMIC TRANSLATION | 
PART> 33= TRANSLATION = 
| | <DYNAMIC TRANSLATION SPECIFIER> 


<DYNAMIC TRANSLATION 
SPECIFIER> :s= | <EXPRESSION> 


The tlowsrtorder 3 bits of the <EXPRESSIQN> determines the 
transtation as follows: | 


000 = EBCDIC 
601 = ASCII 
010 = BCL 


<DYNAMIC OPEN- | 
OPTION PART>s:= OPEN_OPTION s= 
<DYNAMIC OPEN_ OPTION SPECIFIER> 


Af i 
<DYNAMIC OPEN@ a, 


OPTION SPECIFIER>::= <EXPRESSTIOQN> 


The toawrorder 12 bits of the expression determine the type of 
open as follows Cbits are numbered from left to ean within the 
12): 


BIT FUNCTION CIF 1) 
0 = INPUT 
1 =. output 
2 = NEW 
3 = PUNCH 
4 = PRINT 
5 = NO_REWIND»> INTERPRET 
6 = REVERSE» STACKERS 
7 = LOCK 
8 = LOCK_OUT 
<DYNAMIC PARITY PART> 3:= PARITY : 


= <DYNAMIC PARITY SPECIFIER> 


BURROUGHS CORPORATION 
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<DYNAMIC PARITY 
SPECIFIER> ::= 


<DYNAMIC VARIABLE 
RECORD PART> <:= 


<DYNAMIC VARIABLE 
RECORD SPECIFIER> ::= 


<DYNAMIC LOCK PART> 3:3= 


<DYNAMIC LOCK 
SPECIFIER> 2:= 


<DYNAMIC ALL@AREAS= 
AT“OPEN PART> ss= 


<DYNAMIC ALL=AREAS- 
AT@OPEN SPECIFIER> 22= 


<DYNAMIC AREA“BY 
CYLINDER PART> 5 


<DYNAMIC AREA-BY~ 
CYLINDER SPECIFIER> =:: 
<DYNAMIC USE_IOINPUT_ 
BLOCKING PART> 3:= 


<DYNAMIC USE_INPUT 
BLOCKING SPECIFIER 


Vv i 
ee 
oe 


<DYNAMIC ENO-OF- 
PAGE PART> s:s= 


<DYNAMIC END-OF= 
PAGE SPECIFIER> ::= 


<DYNAMIC MULTI™= 
PACK PART>:3= 


<OYNAMIC MULTI- 
PACK SPECIFIER> 3:35 


<DYNAMIC REMOTE= 
KEY PART>3s:= 
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<EXPRESSION> 


VARIABLE = 
<OYNAMIC VARIABLE RECORD SPECIFIER> 


<EXPRESSTON> 


LOCK s= <DYNAMIC LOCK SPECIFIER> 
<EXPRESSTON> 


ALL_LAREAS_AT_OPEN <= 
<DYNAMIC ALL@“AREAS*AT*OPEN SPECIFIER> 


<EXPRESSTION 


AREA_BY_CYLINDER = 


<DYNAMIC AREAwSY-CYLINDER SPECIFIER> 
<EXPRESSTION> 


USE_INPUT_BLOCKING 3= 
<OYNAMIC USE_INPUT_BLOCKING SPECIFIER> 


<EXPRESSTON> 


END_OF_PAGE_ACTION 3= 
<DYNAMIC END“OF-PAGE SPECIFIER> 


<EXPRESSTON> 


MULTI_PACK := 
<DYNAMIC MULTI=PACK SPECIFIER> 


<EXPRESSITON> 


REMOTE_KEY 3= 
<DYNAMIC REMOTE“KEY SPECIFIER> 


Petite. oe th las ples eal tag Men Pe at ta Bett os De oe eat aa Sa eg to ay comer Sane apebciesche op Sige opus the cet iti, Lene Ty oc Cor wane on 6 Gans win eV ibeil ie at afd fat haynes Sipe nC a Bai tegen ag rattled aS RANI a a eR a a oa iN a RT Te ae 
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<DYNAMIC REMOTE- 
KEY SPECIFIER>?::= 


<DYNAMIC WORK 
FILE PART>::= 


<DYNAMIC WORK 
FILE SPECIFIER>:s= 


Hie Sai isk on Gna, fe ep ae Sg a es oo ee cae tee 5 iad ete a sieeve oy Ser Bitten ie eet ne meeaeroo han cages Maa YS wey ee as Cag Luang FO AER vi By 0? IS cece: Gc ade ied wean smeeacis 
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<EXPRESSION> 


WORK_FILE s= 
<DYNAMIC WORK FILE SPEC IFIER> 


<EXPRESSTION> 


Only the tlowrworder bit of each of the above <expression>s is used . 
to determine the value o f the attributes The code definitions 


are as fottloaws: 


PARITY 

VARIABLE 
LOCK 
ALL_AREAS_AT_OPEN 
AREA_BY_CYLINDER 


USE_INPUT_BLOCKING 
END_OF_PAGE_ACTION 
MUL TI_PACK 
REMOTE KEY 


WORK_FILE 


<DYNAMIC EU_LSPECTIAL 
PART> 33= 


“<DYNAMIC EU_SPECIAL 
SPECIFIER> 2:= 


ODD 

EVEN 

FIXED 

VARIABLE 

NOT LOCKED 

LOCKED | : 

ALLOCATE AREAS AS NEEDED 

ALLOCATE ALL SPACE AT OPEN TIME 

PUT AREA ANYWHERE ON DISK . 

ONE AREA PER CYLINDER AT BEGINNING | 
TAKE ATTRIBUTES FROM FILE DECLARATIC® — 
TAKE ATTRIBUTES FROM DISK FILE HEADER” 
See FILE ATTRIBUTES 

NO DETECTION OF END“OF “PAGE 

BRANCH TO <EOF PART> OF <WRITE 
STATEMENT> AT END OF PAGE ON 

PRINTER FILE 

PLACE FILE ON MULTIPLE DISK PACKS 
PLACE FILE ON SINGLE DISK PACK 

REMOTE KEY IS PRESENT ON ALL READS 

AND WRITES TO THE FILE 

REMOTE KEY IS NOT PRESENT 

INSERT JOB NUMBER IN FILE IDENTIFIER 
LEAVE FILE IDENTIFIER ALONE 


mm Ome Om OO he Oh © 


oud dnnn nw dow 


mm © 
Hott 


me Oo he 
ion iu 


Oo © 
wou dl 


EU_SPECIAL <= 

<DYNAMIC EU_LSPECIAL SPECIFIER> 
EULSPECIAL = 

<DYNAMIC EU_SPECIAL SPECIFIER> 
EU_LDRIVE 3= 

<DYNAMIC EU_SPECIAL SPECIFIER>. 


<EXPRESSION> 


ek ad ae Ea a tae Bh ks aa aaa eS a ad aN 
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<DYNAMIC EU_LDRIVE 
SPECIFIER> ss= <EXPRESSIGN> 


<DYNAMIC EU_ 
INCREMENTED PART> :3= EU_INCRENENTED := 
<DYNAMIC EU_INCREMENTED SPECIFIER> 
| EUVLINCREMENTED := 
<DYNAMIC EU_INCREMENTED SPECIFIER>» 
EU_INCREMENT := 
<OYNAMIC EU_INCREMENT SPECIFIER> 


<DYNAMIC EU_INCREMENTED 
SPECIFIER> ss= <EXPRESSION> 


<DYNAMIC EU_ 
INCREMENT SPECIFIER> <EXPRESSTON> 


The towrorder bit of the EU_SPECIAL and EU_INCREMENTED specifiers 
serves to indicate whether or not the attribute is set (O0=0ff» 
1=Qn). If the attribute is off» then inclusion of the EU_LDRIVE 
and EU_LINCREMENT specifiers is unnecessary. 


If these attributes are set on» then the drive and increment 
parts should de included» and Should conform to tne 
specifications tin the FILE OECLARATIONS. If omitted» the 
<DYNAMIC EU_DRIVE SPECIFIER> 185 not changed. If the <DYNAMIC 
EU_LINCREMENT SPECIFIER> has never been set (ie@er» 1t 18 0)» then 
it is set tao ones otherwises it too remains unchanged. 


compo aru ys vreperutett Se, corey. sei meat ik apteet aemeataek neo 
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<DYNAMIC BUFFERS PART> ::= 


<DYNAMIC NUMBER 
OF BUFFERS> 


& 8 «am 
2 @ «= 


<DYNAMIC SAVE 
FACTOR PART> :3:= 


<DYNAMIC SAVE FACTOR> 


<OYNAMIC RECORD 
SIZE PART> 


ae @ am 
ee == 


<DYNAMIC RECORD SIZE> : 


<DYNANIC RECORDS@- 
PER“B8LOCK PART> 


@ 6 = 
a 


<DYNAMIC RECORDS- 
PER=BLOCK> 


® 9 -_ 
so“ 


<DYNANIC REEL 
NUMBER PART> 33= 


<DYNAMIC REEL NUMBER> 332 


<DYNAMIC NUMBER-OF=- 
AREAS PART> 


2 © «a 
a a 


<DYNAMIC NUMBER- 
OF ~AREAS> 


2 © an 
*e*eoq™ 


<DYNAMIC BLOCKS“PER- 
AREA PART> 


ee @ am 
2o™ 


<DYNAMIC BLOCKS@-PER 
ARE A> 


<DYNAMIC QUEUE=FAMILY= 
SIZE PART>:3s= 


<DYNAMIC QUEUE- 
FAMILY-SIZE>3:= 
<DYNAMIC NUMBER-OF- 
STATIONS PART>::= 


<DYNAMIC NUMBER“OF=- 
STATIONS SPECIFIER>?::= 


Seu EES : cee : Seep PERERA SSS ARLP TSP SEN IOOIAT Tal PPLE IGA ES 
ttt REE ty ant Ph RR eR EE AIC RE ETSI ARPT i MISO STE Nh Bcc Me FBLA ne DONE a OO RR SS ALI A LNB tai So it AG RD in ISN AS AER Dig al BE ce ML LT AGE A I RABE EIS BE IEE Diin BS as. 
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<DYNAMIC NUMBER OF BUFFERS> y~ 


<EXPRESSION> 
SAVE t= <DYNAMIC SAVE FACTOR> 
<EXPRESSION> 
RECORD_SIZE := <DYNAMIC RECORD SIZE> 
<EXPRESSION> 

 RECORDS_PER_BLOCK := 


<DYNAMIC RECORDS“PER“SLOCK> 


<EXPRESSION> 
REEL := <DYNAMIC REEL NUMBER> 
| <EXPRESSION> cy 
es 
NUMBER_OF_AREAS := 


<DYNAMIC NUMBER~OF“AREAS> 


<EXPRESSION> 


SS wm 
Pd 


BLOCKS _PER_AREA 
<DYNAMIC BLOCKS“PER=ARE A> 


<EXPRESSTON> 


QUEVE_FAMILY_SIZE 
<DYNAMIC QUEVESFAMILY“SIZE> 


<EXPRESSTION> 


NUMBER_OF_STATIONS <= 
€DYNAMIC NUMBER@*OF “STATIONS SPECIF IER> 


<EXPRESSION>) 
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The above <EXPRESSION>s return a bit string which should be 
consistent with the formats and restrictions tisted tn the FILE 
DECLARATIONS_ 


<DYNAMIC FILE TYPE PART>::= FILE_TYPE := 
<DYNAMIC FILE TYPE SPECIFIER> 


<DYNAMIC FILE TYPE SPECIFIER>s2= <EXPRESSION> 


The value of the expression determines the file type: 


VALUE TYPE 


0 DATA 

v INTERPRETER 
8 CODE 

9 DATA 

12 INTRINSIC 


<DYNAMIC LABEL 
TYPE PART>::= LABEL_TYPE := 
<DYNAMIC LABEL TYPE SPECIFIER> 


<DYNAMIC LABEL 
TYPE SPECIFIER>: := <EXPRESSTON> 


The value of the expression determines the label type. 


VALUE TYPE 
Q . ANSTIT 
1 UNL ABELED 
2 BURROUGHS STANDARD 


<DYNAMIC INVALID 


CHARACTER REPORTING> :2= INVALID_CHARACTERS := 
| F <DYNAMIC INVALID CHARACTER REPORT 
TYPE> 


<DYNAMIC INVALID CHARACTER 
REPORTING TYPE> ss= <EXPRESSTON> 
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ue value of the expression determines the type. of panor ena: 


VALUE tYPE 


0 Report ait lines containing invalid 
characters. | - 
1 Report alt tines containing invalid 
| characters and then stop progran. 
2 Report once that the file contains 
invadid characters. 
3 Don’t report that the file contains 


invalid character Sse 


<DYNAMIC OPTIONAL 
FILE PART> 3:s= OPTIONAL := <EXPRESSIOGN> 


The Lowtorder bit of the expression determines whether or not the 
file may be optional. If the value is Il» the file may be 
optionals if O» it must be present. 


<DYNAMIC SERIAL | ; 
NUMBER PART> 33= | SERIAL 2= <EXPRESSTON> 


The expression should generate a 5-character strings each of the 
characters of which are a decimal digite This number will be 
used as the tape serial number. 


<DYNANIC EXCEPTION MASK | 
PART> ::= EXCEPTION_MASK 3= <EXPRESSION> 


The low order 24 bits of the value of the expression will be used 
as the EXCEPTION MASK. See <EXCEPTION MASK PART> under <FILE 
DECLARATION STATEMENT> in Section 6. 


a = 
‘ : ? 
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<DYNAMIC QUEUE SIZE 
PART> s= | QUEUE _MAX_MESSAGES 2= <EXPRESSION> 


sets size for queue files. 
<DYNAMIC HEADER PART> = REMOTE HEADERS s= <EXPRESSION> 
Sets headers boolean for remote files. 


<DYNAMIC SOFT 
TRANSLATE PART> s2= TRANSLATE s= <EXPRESSION> 
1 TRANSLATE_FILE s= <EXPRESSION> 


TRANSLATE sets a boolean» turning the transiation option on or 
off while TRANSLATE_FILE changes the filerid of the translate 
table file. 

<DYNAMIC HOST_NAME PART>33= HOST_NAMES= <EXPRESSION> 

Sets Host name for BNA. 

<DYNAMIC QOPEN_ON_BEHALF_OF 

PART>33:= OPEN_ON_BEHALF_OFs= <EXPRESSION> 


Turns the OPEN_ON_BEHALF_OF Boolean on or off. 
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STOP STATEMENT 


<STOP STATEMENT> ::= STOP 
1 STOP <EXPRESSTION> 


The <STOP STATEMENT> is 2 communicate to the MCP that the progranr 
has finished. It should not be confused with FINI eaten is the 
final statement in the program. 


STOP <EXPRESSION> is intended for use by the compiters only. The 
<EXPRESSIOQN> communicates the number of syntax errors to the MCP. 
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ZIP STATEMENT 


<ZIP STATEMENT> 33= ZIP <EXPRESSION> 


The <ZIP STATEMENT> allows the user to pass controt instructions 
to the MCP. The <EXPRESSION> should generate a character string 
whose value is a valid MCP control statement as defined in the 
81700 Software Operational Guide. 


ht atts . 
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SEARCH DIRECTORY STATEMENT 


<SEARCH STATEMENT> 23= — <SEARCH PART># <ON FILE PART> 


<SEARCH PART> s2:= | | SEARCH_DIRECTORY (<SEARCH OBJECT>>» 
<SEARCH RESULT>»<SEARCH RESULT MODE > 

<SEARCH QBJECT> ss | <ADDRESS GENERATOR> 

<SEARCH RESULT> 33= <ADDRESS GENERATOR> 

<SEARCH RESULT MODE> ss= BIT 1 CHARACTER 

<ON FILE PART> ::2= <EMPTY> | ON FILE_MISSING <EXECUTABLE 
STATEMENT> 


| GN FILE_LOCKED <EXECUTABLE STATEMENT> | 

1 ON FILE_MISSING <EXECUTABLE STATEMENT>>; 
ON FILE_LOCKED <EXECUTABLE STATEMENT> 

1 ON FILE_LOCKED <EXECUTABLE STATEMENT>; 
ON FILE MISSING <EXECUTABLE STATEMENT> 


~The <SEARCH STATEMENT> altows the user to extract certain 
information contained in the disk file header specified by the 
<SEARCH GEJECT>. ae 


The <SEARCH <OBJECT> is expected to be 30 characters in tength 
where the first 10 characters are the pack identifications the 
second 19 characters are the multirfile identifications and the 
third 10 are the file identification. File names less than 10 
Characters gust be leftcjustified in their respective fieids with 
tratling blanks appended. If only one file name exists» that 
name should be tlefterjustified in the saultirfile identification 
field» and the file identification should be blank. 


The <SEARCH RESULT> specifies the receiving field and should be 
360 bits long if bit mode is specified» or 59 bytes if character 
mode is specified. 


The information is returned in the following format: 


Ty hm, 
ha, 


Note: 


the 
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01 FILE_HEADER_FORMAT> 


OPEN_TYPE 
NO_USERS 
RECORD_SIZE 
RECORDS_PER_BLOCK 
EOF POINTER 
SEGMENTS_PER_AREA 
USER_OPEN_OUTPUT 
FILE_TYPE 
PERMANENT_FLAG 
BLOCKS_PER_AREA 


| AREAS_REQUESTED 


ARE A_COUNTER 
SAVE_FACTOR 
CREATION_DATE 
LAST_ACCESS_DATE 


course 


sak itinerant cpa ealnn hee i Sanit Sl a si SSD el hh ih a it ch ee Badia ae ee atte atts la ly ae hs ed 


BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BLT 
BIT 
BIT 
BIT 
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C24)» 
C24)» 
C24)»p 
C24)» 
C24)» 
C24)> 
C24) >» 
(24) >» 
C24)> 


(24)> 


C24) > 
C24)» 
C24)» 
C24) 
C24)» 


NNN NN NN NNN NN HA 


PeSe 2212 5405 CG) 


This format may be subject to change. 


CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 


C1) 
C2) 
C4) 
C4) 
(8) 
C8) 
Ci) 
(2) 
C2) 
(6) 
€3) 
(3) 
(3) 
C5) 
C5) 


The <FILE MISSING PART> and <FILE LOCKED PART> altow the user 
specify 
aris@e 


to 


of action should either of these conditions 
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READ FILE HEADER, WRITE EILE HEADER 
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<ACCESS FILE HEADER we | 

STATEMENT> 22= <ACCESS FILE HEADER PART>3 

| <ACCESS FILE HEADER PART>> 
<FILE MISSING PART> 

1 <ACCESS FILE HEADER PART»; 
<FILE LOCKED PART> . 

1 <ACCESS FILE HEADER PART>; 
<FILE MISSING PART> 
<FILE LOCKED PART> 


<ACCESS FILE HEADER 
PART> 33= READ _FILE_ HEADER 

C(<FILE NAME>» <DESTINATION FIELD>) 
| WRITE_FILE_HEADER | 

C<FILE NAME>» <SOURCE FIELD>) 


<FILE NAME> se= <ADDRESS GENERATOR> 


<DESTINATION FIELD> 33: <ADDRESS GENERATOR> 


<SQURCE FIELD> ss= <ADDRESS GENERATOR> 


<FILE MISSING PART> ::= GON FILE_MISSING <EXECUTASLE STATEMENT> 


as 
i 


<FILE LOCKED PART> : 


The <ACCESS FILE HEADER STATEMENT> ts intended for use in systems 
programs only. it enables the programmer to either read or write 
a file header. 


The <FILE NAME> is expected to be a 30"character field where the 
first 10 characters are the PACK_ID» the second i0 characters are 


the MULTI“FILE IDENTIFICATION and the third 105 #.;the FILE 


IDENTIFICATION. File names tess than 10 characters are 
left-justified in their respective fields. If only one file name 
exists» it is leftcjustified in the multicfile identifications 


and the file identification should be set to blankse 


The <SOURCE FIELD> or  <DESTINATION  FIELD> specifies» 
respectively» the sending or receiving field» and 1s expected to 
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ON FILE_LOCKED <EXECUTABLE STATEMENT> 


be 576 to 4320 bits in length 
allocated. Information 15 
Refer to the 81700 MCP Manual 


depending upon the nuaber of areas 
passed In the file header format. 
for specifics. | 


AO oy, 


\ 
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The <FILE MISSING PART> and <FILE LOCKED PART> enable the 
programmer to specify the course of action should etther of these 
conditions arise. 


Note that extreme caution is advised when writing a file header. 


Baia teaser Sasa onrabiaaeer scanned aladineectnnaliamaneemtn ss 
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MAKE READ ONLY: MABE READ WRITE 


<ARRAY PAGE TYPE | | | 7 
STATEMENT> s3=) | <ARRAY PAGE TYPE DESIGNATOR> 
_ (<PAGED ARRAY NAME>»<PAGE NUMBER>) 


<ARRAY PAGE TYPE | 
DESIGNATOR> ss= MAKE _READ_ONLY 
1 MAKE _READ_WRITE 


_<PAGED ARRAY NAME> 33:= <IDENTIFIER> 
<PAGE NUMNBER> :3= <EXPRESSION> 
The <ARRAY PAGE TYPE STATEMENT> allows the user to mark certain 


paged array pages as READONLY. When this is done» a page will 
not be written out to disk every time it is overtaid. 


MAKE_READ_WRITE allows the user to change information on a paged 
array» and to have that array written on disk when it is 
overlaide It 1s only necessary to specify MAKE_READ_WRITE after 
a MAKE_READ_ONLY specification. 


It is the programmer's responsibility to ensure that the 


information in a page marked READ“GNLY is not changed. In 
additions the user 1s responsible for guaranteeing correct page 


numoer specifications. There is no syntax check for either. 


EXAMPLE 


DECLARE PAGED (€32) P €1024) BITCI30)» T1 FIXED 
Ti s= =1;3 
DO FOREVER; 
MAKE _ READ_LONLY CP» BUMP T1)> 
IF T1 = 31 THEN UNDO; 
 ENDs 


MAKE_READ_WRITE (P»> 0)3 
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CORQUTINE STATEMENT 
<COROUTINE STATEMENT>::3= <COROUTINE ENTRY STATEMENT> 
1 <COROUTINE EXIT STATEMENT> 
<CORGQUTINE 
ENTRY STATEMENT>33= ENTER_CORQUTINE 
C<COROUTINE TABLE SPECIFIER>) 
<COROQUTINE 
TABLE SPECIFIER> 232 <ADDRESS GENERATOR> 
<COROUTINE 
EXIT STATEMENT>3::= EXIT_CORGUTINE 


C<COROUTINE TABLE SPECIFIER>) 


The <CQORQUTINE TABLE SPECIFIER> associated with ENTER_COROUTINE 


and 


EXIT_COROUTINE is assumed to describe a table with the 


following format: 


Be 


i 


DECLARE 
01 TABLE 
202 NUMBER_LOF_LENTRIES BITC4) 
202 ENTRY_ADDRESS BITC 32) 
702 PPS_COPYC16) BITC32) 
Fd 


ENTER _CORCUTINES The <CORQUTINE TABLE SPECIFIER> 1s assumed 
to have the format described above. The current code 
address 1s pushed on to the Program Pointer Stacks The 
number of elements of PPS.COPY that is specified by 
NUMBER_OF_ENTRIES is pushed onto the Program Pointer Stack. 
The address of the next instruction is taken from 
ENTRY ADDRESS. 


EXIT_COROUTINES The <COROUTINE TABLE SPECIFIER> is assumed 
to describe a table of the format given above. The current 
nesting Level is stored in NUMBER_OF_ENTRIES. The current 
code address is stored in ENTRY_ADORESS. The number (Cas 
specified by NUMBER_OF_ENTRIES) of entries on the top of the 
Program Pointer Stack 18s copied to PPS_COPYC9) through 
PPS_COPYCNUMBER_OF_ENTRIES@“1). If NUMBER_OF_LENTRIES is Op» 
then nothing ts copied. An UNDO is performeds using 
NUMBER_OF_ENTRIES as the number of entries on top of the 
Program Pointer Stack. 
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Note; Upon first execution of ENTER _COROUTINE> the table must _ 


already be set up- The easiest way to accomplish this is to make 


EXIT ~COROUTINE statement. The first entrance to the coroutine is 
then accompiished by a cail statement. | | 


Note: This is not a general coroutine mechanism="isese» It is not. 
Symmetric. The routine executing the ENTER_COROUTINE is a master 
to the slave routine which contains the EXIT_COROUTINE'S. 


Note: EXIT_COROUTINE can only appear within procedures with no 
parameters and no local datas 1e@e» those procedures which do 
not change the Control Stack. 


EXAMPLE: — 
DECLARE I FIXED; will display "900003" C1) 
DECLARE TABLE BITC4417%32)>5 | "900005" (2) 
PROCEDURE SLAVE> | | | "900008" (3) 
EXIT_ CORGUTINECTABLE); ZSETS UP TABLE "900010" (4) 
DO FOREVERS —— | . 
BUMP I BY 23 co. 
DISPLAY DECIMALCI»6)3> © e oe 
EXIT COROUTINECTABLE)> ZRESETS TABLE = . ; 
END m and 
END SLAVE> . aa | 
PROCEDURE MASTER> | | | "*Saen”™ €2n) 
SLAVEs ZCALL FOR SETUP | "Senet" C2nt+1) 
I <= QO; | | 


DO FOREVER> 
BUMP I BY 3> 
DISPLAY DECIMAL(CI 6); 
ENTER _COROUTINECTABLE)> ZUSES TABLE 


END> 
END MASTER; 
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EXECUTESPROCEDURE STATEMENT 


<EXECUTE*PROCEDURE 
STATEMENT> 33 <NON@TYPED PROCEDURE OESIGNATOR> 


<NON“TYPED PROCEDURE , 
DESIGNATGR> 3::= <NON@“TYPED PROCEDURE IDENTIFIER> 
<ACTUAL PARAMETER PART> 


<NON“TYPED PROCEDURE , 
IDENTIFIER> 335 <IDENTIFIER> 


<ACTUAL PARAMETER PART> 33= <EMPTY> 
i C<ACTUAL PARAMETER LIST>) 


<ACTUAL PARAMETER LIST> 3s= <ACTUAL PARAMETER> 
: 1 <ACTUAL PARAMETER>» 
<ACTUAL PARAMETER LIST> 


<ACTUAL PARAMETER> 3s= <EXPRESSION> 
1 <ARRAY DESTIGNATOR> 
<ARRAY DESIGNATOR> 33= <ARRAY IOQENTIFIER> 
C A nonwtyped procedures 1 e@es a procedure which performs a 
function and does not return a vatues 1s Invoked through an 
<EXECUTE*PRCCEQOURE STATEMENT>. The name of the procedure 1s 
followed by its parameters enclosed in parens. Refer to the 


Section ADDRESS AND VALUE PARAMETERS for information concerning 
passing parameters. 


For a description of the invocation of typed procedures» see 
VALUE VARIABLES. 
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EXECUTESEUNCIION STATEMENT 


<EXECUTE<FUNCTION 
STATEMENT> 225 


<FUNCTION DESIGNATOR> 32: 
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ed 
<me. 


<FUNCTION DESIGNATOR> 


<ACCESS FILE INFORMATION DESIGNATOR> 
<CHANGE STACK SIZE DESIGNATOR> 
<CHARACTER FILL CESIGNATOR> 
<COMMUNICATE DESIGNATOR> 
<COMPILE*CARD“INFO CESIGNATOR> 
<DC_LINITIATE_IO DES IGNATOR> 
<DEBLANK DESIGNATOR> : 
<DISABLE_INTERRUPTS DESIGNATOR> 
<DUAP DESIGNATOR> | 

<DUMP=-FOR- ANALYSIS DESIGNATOR> 
<ENABLE_INTERRUPTS DESIGNATOR> 
<ERROR COMMUNICATE DESTGNATOR> 
<EXECUTE DESIGNATOR> 

<FETCH DESIGNATOR> 

<FINOD DUPLICATE CHARACTERS DESIGNATOR> 
<FREEZE“PROGRAM DESIGNATOR> 

<GROW DESIGNATOR> 

<HALT DESIGNATOR> 

<HARDWARE MONITOR DESIGNATOR> 


<INITIALIZE_VECTOR DESIGNATOR> r~ 
<MESSAGE COUNT DESTGNATOR> he 


<MONITOR DESIGNATOR> 
<OVERLAY DESIGNATOR> 

<READ CASSETTE DESIGNATOR> 
<ACCESS“FPB DESIGNATOR> 
<REFER_ADDRESS DESIGNATOR> 
<REFER_LENGTH DESIGNATOR> 
<REFER_TYPE DESIGNATOR> 
<REINSTATE DESIGNATOR> 
<RESTORE DESIGNATOR> 
<REVERSE DESIGNATOR> 

<SAVE DESIGNATOR> 
<SAVE_STATE DESIGNATOR> 
<SORT DESIGNATOR> 
<SORT_MERGE DESIGNATOR> 
<SORT_SWAP DESIGNATOR> 
<THAW_PROGRAM CESIGNATOR> 
<THREAD_VECTOR DESIGNATOR> 
<TRACE DESIGNATOR> 
<TRANSLATE DESIGNATOR> 
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ACCESS FILE INFORMATION 
<ACCESS FILE INFORMATION | 
DESIGNATOR> 3::= ACCESS_FILE_INFORMATION C<FILE DESIGNATOR>» 
<RETURN TYPE>» <DESTINATION> 
<FILE DESIGNATOR> 3s:= <FILE I[DENTIFIER> 
i <SWITCH FILE IDENTIFIER> (<EXPRESSIOQN>) 
<RETURN TYPE> 33= BIT / CHARACTER 
<DESTINATIGN> :3s= <ADDRESS GENERATOR> 


The <ACCESS FILE INFORMATION DESIGNATOR> returns the endeof-file 
pointer and the device type from the FIB of the specified file to 
the specified destination. 


The inforaation may be returned as either bit or character. The 
format is as follows: 


O1 OESTINATION_FIELD> 


O02 EOF _ POINTER BITC(24)» r4 CHARACTERCS) 
O02 DEVICE_TYPE BITCS)>; yA CHARACTERC2) 


To insure that the FIB exists» this communicate should only be 
used on open files. 


CHANGE STACK SIZES 


<CHANGE STACK 

SIZES DESIGNATOR> ::= CHANGE_STACK_SIZES C<VSSIZE>» 
<NSSIZE>» <CSSIZE>» <ESSIZE>» 
<PPSSIZE>» <DYNAMIC SIZE>) 


<VSSIZE> 33= <NUMBER> 
<NSSIZE> :2=_ <NUMBER> 
<CSSIZE> ::= <NUMBER> | 
<ESSIZE> 2:5 <NUMBER> 
<PPSSIZE> :s= <NUMBER> 
<DYNAMIC SIZE> :3= | <NUMBER> 
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This statement is restricted to Lexic Levelt Zero of programs with 
no global data. Also» due to technical incompatibilities» it may 
not be used in a program that invokes profiling» timings or 
monitoring facitities. Note that the parameters are in an order 
corresponding to the order of the stacks in memory. | 


The result of the execution of the statement is to change the 
program's stack sizes to the values givene — 


CHARACTER_FILL 


<CHARACTER FILL | | 

DESIGNATOR> ::= CHARACTER_FILL (<OF DESTINATION>> 
| <OF SDURCE>) 

<OF DESTINATION> ::= €ADDRESS GENERATOR> 

<OF SOURCE> ::= <EXPRESSION> 


The hightorder 8 bits of the <CF SOURCE> will be spread 
throughout the <CF DESTINATION>. 


COMMUNICATE 
<COMMUNICATE DESIGNATOR>::= COMMUNICATE C<EXPRESSION>) 


The <EXPRESSION> is expected to be a valid communicate message. 
This is intended only for experimental testing of communicates. 


COMPILE CARD_INEO 


<COMPILE“CARD- | | 
INFO DESIGNATOR>::= COMPILE _CARD_INFO 
| C(<CCI DESTINATION FIELD>) 


<CCI DESTINATION FIELD>::=  <ADDRESS GENERATOR> 
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This function is intended for use by the 


inforgaation on the compile card is returned in the following 
formats 
OBJECT NAME CHARACTER (30) 
EXECUTE TYPE CDECIMAL) CHARACTER (2) 

OL EXECUTE 

02 COMPILE AND GO 

03 COMPILE FOR SYNTAX 

04 COMPILE TO LIBRARY 

05 COMPILE AND SAVE 

06 G0 PART GF COMPILE ANDO GO 

07 GG PARTY QF COMPILE AND SAVE 
COMPILER PACK IDENTIFIER CHARACTER (10) 
COMPILER INTERPRETER NAME CHARACTER (30) 
COMPILER INTRINSIC NAME CHARACTER (10) 
COMPILER PRIORITY CDECIMAL) CHARACTER (2) 
COMPILER SESSION NUMZER CHARACTER (6) 
COMPILER JO8 NUMBER CDECIMAL) CHARACTER (6) 
COMPILER 1ST AND 2ND NAMES OF RUNNING PROGRAM CHARACTER (€20) 
COMPILER CHARGE NUMBER CHARACTER (7) 
FILLER CHARACTER (1) 
COMPILATION DATE AND TIME COMPILED BIT (36) 
FILLER BITC4) 
COMPILER USERCODE CHARACTER (10) 
COMPILER PASSWORD CHARACTER (10) 
COMPILER PARENT JOB NUMBER CHARACTER (04) 
COMPILER PARENT GUEVE IDENTIFIER CHARACTER (€20) 
COMPILER LOG SPO CHARACTER (1) 


QOC_INITIATE 10 


<DC_LINITIATE_IO 
DESIGNATOR> s:= 


<PORT> :3:= <EXPRESSIQN> 
<CHANNEL> 33s= <EXPRESSIGN> 
<I0 DESC ADDRESS> ::= <EXPRESSION> 


compilers 


onl ye 


See MCP documentation for DC_INITIATE_I10 Ccommunicate verb 


The 


DC_INITITATE_I0 (<PORT>» <CHANNEL>>» 
<I0 DESC ADDRESS> 


40). 
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| DEBLANK | 
<DEBLANK CESIGNATOR>:? := DEBLANK C<FIRST CHARACTER>) 


<FIRST CHARACTER>: s= <IDENTIF IER> 


The <FIRST CHARACTER> is a simpte identifier which describes the 
first character to be examined. Deblank repeatedly increments 
the address fieid of the descriptor for <FIRST CHARACTER> untii 
<FIRST CHARACTER> describes a nonwblank character. - 


DISABLE_INTERRUPTS 


<DISABLE_INTERRUPTS 
DESIGNATOR> ::= DISASLE_INTERRUPTS 


For MCP use only. 


The <DISABLE INTERRUPTS DESIGNATOR> suppresses all interrupts f™. 
until an <ENABLE INTERRUPTS DESIGNATOR> is encountered. Na 


Note that this construct cannot be executed by normal state 
programs. 3 


QUMP 
<DUMP DESIGNATOR> s:3= DUMP 
The MCP wilt create 2 dumpfiies and program execution will 


continue after the dump. 
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QUMP_FOR ANALYSIS 


<DUMP<-f OR- 
ANALYSIS CESIGNATOR> 3 2= DUMP_FOR_ANALYSIS 


Execution of this function will cause a dumpfile to be created 
and execution to continue. 


ENABLE INTERRUPTS 


<ENABLE_ INTERRUPTS 
DESIGNATOR> ::= ENABLE_INTERRUPTS 


For MCP use only. 


The <ENABLE INTERRUPTS ODESIGNATOR> causes the MCP to return to 
the normal interruptprocessing mode after the <DISABLE 
INTERRUPTS CESIGNATOR> has changed that modee See above. 


Note that this construct cannot be executed by a nornal state 
programe 


ERROR COMMUNICATE 


<ERROR COMMUNICATE 
DESIGNATOR> ss= ERROR COMMUNICATE C<EXPRESSTIOQN>) 


The value of the expression should be in the following form: 
2 BITS 6 S8ITS 16 BITS 24 BITS 


3; 60 3 N : ) : 0 : 


where N is the error number. 
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The yalue of the expression will be out on che Evaluation Stack 


as a descriptor» and an MCP communicate wilt be performed. 


If N = 29 then the MCP will use the 16-bit fietd as a bit Ltength 
and the 24-bit field as a base relative bit address of the error 
message to be printed on the SPQ. Otherwise» N is the 
MCP-defined error message number. | | | 


EXecure 


See <EXECUTE OPERATOR DESIGNATOR> in Section 8. 


FETCH 

<FETCH DESIGNATOR> 2:= <FETCH SPECIFIER> (<I/0 REFERENCE 
ADDRESS>» <PORT» CHANNEL ADDRESS>» 
<RESULT DESCRIPTOR ADDRESS>) 

<FETCH SPECIFIER>:: FETCH I FETCH_AND_SAVE 

<1/0 REFERENCE 

ADDRESS> :3= <EXPRESSION> 

<PORT» CHANNEL | 

ADDRESS> ::= <ADDRESS GENERATOR> 


<ADDRESS GENERATOR> :3= See ADDRESS GENERATORS 


<RESULT pees 


ADDRESS> 33= <ADDRESS GENERATOR> 


The <FETCH DESIGNATOR> fetches the result of an I/0 operation. 
If there is a high priority interrupts» then that tnterrupt will 
be reported. Otherwise» if the <I/Q REFERENCE ADDRESS> is 


non “zer 0» then only an interrupt on an 1/0 descriptor with the 
reference address the same as the <I/0 REFERENCE ADDRESS> will be 
reported. The PORT (3 BITS) and CHANNEL (C4 BITS) of the 


Interrupt are stored from left to right in the Lowtorder 7 bits 
of <PORT» CHANNEL ADDRESS>. The I/0 RESULT DESCRIPTOR REFERENCE 
ADDRESS is stored in the tlowrtorder 24 bits of the <RESULT 
DESCRIPTOR ADDRESS>.j If there were no interrupts» then these two 
fields will be zero. FETCH _AND_SAVE is obsolete as of the 5_1 
release. | , 3 | 
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<FIND DUPLICATE CHARACTERS 

DESIGNATOR> ::= FIND_ DUPLICATE _CHARACTERS 
C<FDC TEXT> » <DUPLICATE COUNT>»> 
<DUPLICATE CHARACTER> » <NON“DUPLICATE 


TEXT>) 
<FDC TEXT> :2= <SIMPLE IDENTIFIER> 
<DUPLICATE COUNT> :s= <ADDRESS GENERATOR> 
<OUPLICATE CHARACTER> ::= | <AODRESS GENERATOR> 


= <SIMPLE IDENTIFIER> 


<NON@OUPLICATE TEXT> : 


The text to be scanned for contiguous duplicate characters is 
described initiaily by <FOC TEXT>. The text will be scanned 
until three or more contiguous duplicates are found. Upon 
returns <FOC TEXT>'s descriptor will be reduced to describe the 
text beyond the duplicates <NON*DUPLICATE TEXT>*s descriptor 
Will be modified to describe the noneduplicate text that was 
scanned> <DUPLICATE COUNT> will contain the number of duplicate 
characters, and <DUPLICATE CHARACTER> witli describe the 
duplicate character. 


FREEZE _ PROGRAM 


<FREEZE“PROGRAM 
DESIGNATOR>:3:= FREEZE_PROGRAM 


Execution of this function will prevent the program from being 
moved in memory or from being rolled out of memory. 


GROW 


<GROW DESTIGNATOR>: := GROW C<PAGED ARRAY IDENTIFIER>» 
| <EXPRESSTON>) 


This statement dynamically increases the array bound of the 
specified paged array by the vatue of the expressione The 
expression may not be negative (the bound may not be decreased) 
and the resulting array bound must not be targer than 16277215. 
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HALT 


<HALT DESIGNATOR> :?= = =—- HALT (<EXPRESSION>) 


The <HALT DESIGNATOR> causes the vaiue of the <EXPRESS ION> to be 


moved to the M-Machine T-Register. If the value is longer’ than 


24 bits» only the tow-order 24 bits are moved. If the vatiue is 
less than 24 bits» the value is right"justified and leading 
zeroes are added. a | 


After the value is moveds an M*Machine halt is executed. 
EXAMPLES: — 


DECLARE X BITC24);3 | 
HALT CX21HEX_ SEQUENCE _ NUMBER )> 


HALT C(SUBBIT CHEX_SEQUENCE_NUMBER»> O» 24))3 


HARDWARE MONITOR 


“HARDWARE MONITOR 
DESIGNATOR> ::= HARDWARE_MONITOR C<EXPRESSION>) 


The monitor micrortopcode will be executed using the lowrorder 8 
bits of the <EXPRESSION> as its operand. 


INITIALIZE VECTOR 
<INITIAL IZE_ VECTOR 
DESIGNATOR> ::= INITIALIZE_VECTOR C<TABLE ADDRESS>) 


<TABLE ADDRESS> 33:= <ADDRESS GENERATOR? 


For use by SORT only. 
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The <TABLE ADDRESS> points to the table containing the vector 
address» the vector level-i address» the key table addresss and 
the vector timit address. 


MESSAGE COUNT 
<MESSAGE_COUNT 
DESIGNATOR> ::= MESSAGE_COUNT CFILE DESIGNATOR>>» 
<ADDRESS GENERATOR> 
<FILE DESIGNATOR> 23= <FILE IDENTIF IER> 


[| <SWITCH FILE ID> C<EXPRESSION>) 


The <FILE SPECIiFIER> is assumed to be a queue file and the number 
of messages in the queue will be returned as a fixed number into 
<ADDRESS GENERATOR>.j If <FILE SPECIFIER> is a queue file familye 
an array of values» ane for each family member» will be returned 
into <ADDRESS GENERATOR>. 


C MONITOR 


See Appendix VIII: SDL MONITORING FACILITY 


QVERLAY 
<OVERLAY CESIGNATOR> ::= OVERLAY (<EXPRESSION>) 


The <EXPRESSION> will be used as an index into the interpreter 
dictionary by the interpreter swapper. The interpreter 
dictionary entry will specify the action to be taken. See the 
Bi700 MCP Reference Manual. 
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<READ CASSETTE 
DESIGNATGR>3:3= 
<DESTINATION SPECIFIER>?: := 


SHASH_TOTAL SPECIFIER>: s= 


<RESULT SPECIFIER>::= 
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READ_CASSETTE (<DESTINATION SPECIFIER> 
<HASH_TOTAL SPECIFIER>» <RESULT SPECIFIER>) 


<ADDRESS GENERATOR> 


HASH TOTAL 


NO_HASH_ TOTAL 


<ADDRESS GENERATOR> 


The <READ CASSETTE DESIGNATOR> causes the number of Obits 
specified by the <DESTINATIGN SPECIFIER> to be read from the 
console cassette to the address specified by that <DESTINATION 
SPECIFIER>. This number of bits must be equat to the record size 
minus the hashetotal size Cif it is present) of 16 bits. The 
<HASH_TOTAL SPECIFIER> indicates whether or not a hashetotal is 
expected at the end of the record. 


A value of 0 or 1 wilt 
indicating that the HASH*TOTAL was incorrect or correct» 


respectively. 


READ EPR WRITE_FP8 


<ACCESS“FPB 
DESIGNATOR> 3:= 


rT) 
ry) 


<FILE SPECIFIER> =3= 
<FILE DESIGNATOR> ::= 


<FILE NUMBER> :3= 


<SQURCE OR CESTINATION 
FIELD> 33= 


<ADDRESS GENERATOR> 3:s= 


be left in the <RESULT SPECIFIER> 


ie N 
: 


<ACCESS“FPB IDENTIFIER> 

C<FILE SPECIFIER>>» 

<SOURCE OR DESTINATION FIELD>) 
READ_FPB 1! WRITE_FPB 


<FILE DESIGNATOR> * 
<FILE NUMBER> 


<FILE IDENTIFIER> 
<SWITCH FILE IDENTIFIER> C<EXPRESSTON>) 


<EXPRESSTON> 


<ADDRESS GENERATOR> 


See ADDRESS GENERATORS 
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The Fite Parameter Btock of the fite indicated by the <FILE 
SPECIFIER> is read iIntoas or written from the <SQURCE OR 
DESTINATION FIELD>.- | 


Note that the <SOURCE OR DESTINATION FIELO> should be 1440 bits 
in Length. 


(READ QVERLAYs WRITE _QVERLAY 
<ACCESS OVERLAY 
DESIGNATOR> s3= <ACCESS OVERLAY IDENTIFIER>C(<EXPRESSION>) 
<ACCESS OVERLAY 
IDENTIFIER> 33= READ_OVERLAY / WRITE_OVERLAY 


The vaiue of the <EXPRESSIGN> is assumed to be a 76-bit’ field 
with the foliowing format from highworder to lLowcorder: 


BITS CONTENTS 

g=3 EU = 0 CNot used) 

4°27 Base relative beginning address 
28°51 Sase relative ending address 

52°75 Disk address (Relative to user area) 


The area described by the beginning and ending addresses is read 
to» or written from the user disk at the Crelative) DISK ADDRESS 
given. | 


REFER ADDRESS 


<REFER_ADORESS 
DESIGNATUR>:3= REFER_LADDRESS C<REF VAR>» <EXPRESSTUN>) 


The value of <EXPRESSION> is stored in the address part of <REF 
VAR>. | 


The 


mremiitanntb mRAASEN ASAP BET EDT a EE I Sg nN ce En ian 
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REFER LENGTH 
<REFER_LENGTH__ 
DESIGNATOR>::= 


The value of <EXPRESSION> 
VAR>.« 


REFER TYPE 
<REFER TYPE 
DESIGNATOR>:: 


The vatue = of 


VAR>-. 


REINSTATE 


<REINSTATE CESIGNATOR> 


<REINSTATED PROGRAN> : 


is stored 


<EXPRESSTON> 
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REFER_LENGTH (<REF VAR>» <EXPRESSION>) 


in the length part of <REF 


REFER_TYPE C<REF VAR>» <EXPRESSION>) 


is stored in the type part of <REF 


REINSTATE C<REINSTATED PROGRAM>) 


<ADDRESS GENERATOR> 


describe 


<REINSTATED PROGRAM> is assumed to the field 
RS _COMMUNICATE_MSG_PTR of RS_NUCLEUS of the program to be 
reinstated (See description of the RUN STRUCTURE itn Bi700 MCP 
Reference Manual). | | | 
The reinstating program*s M-Machine state is stored in the 
appropriate parts of its RS_NUCLEUS. The address of the 
reinstating program's RS_NUCLEUS is stored in the reinstated 


program’s RS_COMMUNICATE_LR. 


The program whose. 
<REINSTATED PROGRAM> 


RS_COMMUNICATE_MSG_PTR 
is then reinstated. 


1s described by 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 


SANTA BARBARA PLANT P.S.e 2212 5405 (G) 
RESTORE 
<RESTORE DESIGNATOR> 2:2 RESTORE C<ADDRESS GENERATOR LIST>) 


<ADDRESS GENERATOR 
LIST> 3:= See ADDRESS GENERATORS 


The <RESTORE DESIGNATOR> assigns the current value on the top of 
the Evaluation Stack to each <ADODRESS GENERATOR>» from right to 
left» in the list. This operator is used in conjunction with the 
<SAVE DESIGNATOR>.j See above. 


EXAMPLE: 


SAVE CA»B»C)> 


RESTORE CAs Bel)s 
NOTE THAT RESTORE CA»B8-C) IS THE SANE AS: 
RESTORE (C)> 


RESTORE (€B)> 
RESTORE CA)>, 


REVERSE STORE 


<REVERSE STORE 


DESIGNATOR> = REVERSE_STORE 


C<ADDRESS GENERATOR LIST>»<EXPRESSTION>) 


<ADODRESS GENERATOR 
EIST>: 32 See ADDRESS GENERATORS 


The REVERSE_STORE OPERATION has the effect of evaluating multiple 
store operations from teft to right instead of from right to 
left. See THE REPLACE OPERATORS. 


For example: 


REVERSE _ STORE CLeMeNoP»X#1)3 


has the same effect as: 
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L s= Ms 

Mo s= Ne» 

N s= Po 

PP s= Xe, 


With the REVERSE _STOREs however» the descriptor for each <ADDRESS 
GENERATOR> in the List is determined only once. | | 


Note: | | 
REVERSE_STORE CL»MeNe Po X4+1)3 


is not the same as 
LS=MS=N3=Ps=Xetl> 


“SAVE 


<SAVE DESIGNATOR> :3= SAVE C<EXPRESSION LIST>) 


Each of the <EXPRESSION>sS» from left to right» will be evaluated» 
and the value of each Left on the Evaiuation Stack (Cand Value 


Stack» if necessary). See <RESTORE DESIGNATOR>. a 
| ‘7 
SAVE_LSTATE 
<SAVE STATE DESIGNATOR> :s= SAVE_STATE 
The state af the interpreter will be stored in RSeMeMACHINE (See 
B1700 MCP Reference Manuai)e Execution will then continuee 
SORT 
<SORT DESIGNATOR> ::= SORT C<SORT INFORMATION TABLE SPECIFIER>» — 
<SORT KEY TABLE SPECIFIER>» 
<INPUT FILE DESIGNATOR>» 
<OUTPUT FILE DESIGNATOR> <TRANSLATE 
FILE DESIGNATOR>) 
<SORT INFORMATION TABLE | 
SPECIFIER> :s= | <ADDRESS GENERATOR> 


ay 
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<SORT KEY TABLE 
SPECIFIER> s3= <ADDRESS GENERATOR> 


<FILE DESIGNATOR> 


eo 
lt 


<INPUT FILE DESIGNATOR 


<TRANSLATE FILE 


DESIGNATOR> ::= <EMPTY> |} » <FILE DESIGNATOR> 
<OUTPUT FILE | 

DESIGNATOR> 3s= <FILE DESIGNATOR> 

<FILE DESIGNATOR>: <s= <FILE IDENTIFIER> 


t <SWITCH FILE IDENTIFIER> C<EXPRESSTON>) 


The <SORT ODESIGNATOR> 18 a communicate which requests the 
transfer of records from the input file tsa the output file 


according to the SORT key table. The SQRT ainformation tabdtle 
includes codes for SORT type» hardware available» and other 
optionse 


For formatting specifications of the SORT information table» 
refer to SGRT documentation. | 


era 


SORT MERGE 


SORT_MERGE 
(<SORT INFORMATION TABLE SPECIFIER>> 
<SORT KEY TABLE SPECIFIER>>» 

<INPUT TABLE SPECIFIER>» 

<QUTPUT FILE DESIGNATOR> 

<TRANSLATE FILE DESIGNATOR>) 


66 


<SORT_MERGE DESIGNATOR> : 


<INPUT TASLE SPECIFIER> :3:= <ADORESS GENERATOR> 


See SORT STATEMENT for other parameters» and SORT documentattioan 
for table formats and semantics. 
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<RECORD 2> ::= 


SORT SWAP 


oe 


<SORT_SWAP CESIGNATOR> SORT_SWAP C<RECORD 1>»*<RECORD 2>) 


<RECGRD 1> ::= <ADDRESS GENERATOR> 
<ADDRESS GENERATOR> 


While the <SORT SWAP DESIGNATOR> is intended to be used by the 
SORT» its application is such that it may be generally useful. 


This designator allows the user to Swap or exchange two records 
in memory without allocating a third area for storing one of the 
recordse 


specifically» the record pointed to by <RECORD 1> is exchanged 
with the record pointed to by <RECORD 2>. 


Note: The interpreter being used must contain the SORT_SWAP 
operator. | oe 
ae * 
ae 
THAW PROGRAM 
<THAW-P ROGRAM 


DESIGNATOR>:s= THAW_PROGRAM 


Execution of this function will allow the program to be rotled 
out of memory. It will not force it to be rolled out. 


THREAD VECTOR 


<THREAD_ VECTOR 
DESIGNATOR> 3s= THREAD VECTOR (<TABLE ADDRESS>»<INDEX>) 


<TABLE ADDRESS> i: <ADDRESS GENERATUOR> 


<INDEX> ss= <EXPRESSTON> 
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For use by sort only. 
The <TABLE ADDRESS> opoaints to the table containing the 
information described under INITIALIZE_VECTOR. The <INDEX> 


orovides the offset from the beginning of the vector to the next 
record to be used for cofparison. 


TRACE 


Sati NO ats ic dn 2a heli nit li aca seidieslatla dy iilyt sara 


<TRACE CESIGNATOR> :s= TRACE #t NOTRACE | TRACE C<EXPRESSION>) 


The TRACE wilt cause the SOL instructions of the normal state 
program to be traced on the fine printer. NOTRACE wilt turn off 
the trace. The trace will onty be effective when the program is 
run with an SDL trace interpreter. 


TRACE C<EXPRESSION>) provides greater control of the tracing to 
be done. The towrorder 10 bits are used in the following way 
(nugbering of the 10 is from teft to right): 


Bit Use 


0 Trace all commands except those which modify data or 
| change the program pointer stack. Normal state anly. 


1 Trace commands which modify data ttems Ceeger» CLR» 
SNDL» etce)e Normal state only. 


2 Trace commands which change the program pointer stack 
Ceege» IFTH» CASE» EXIT» etc»). Normal state only. 


3 Not used. 

4-6 Same as 0-2» but for MCP. Severat MCP routines 
CGETSPACE» FORGETSPACE» and others) will not be 
traced. 

779 Same as O72» but will trace those MCP routines not 


traced by 4-6. 


Note that TRACEC33803) is the same as TRACE» white TRACECO) is 
the same as NOTRACE. 


nt nett sn tah BY es tins HET rite th isto same eee Re Se ee et ee oe So et aS Mg Notes ee rach one ipea Sea 
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TRANSLATE : 


TRANSLATE C<TRANSLATE SOURCE>» 
<TRANSLATE SOURCE ITEM SIZE>> 
<TRANSLATE TA3LE> » <TRANSLATE TABLE 
ITEM SIZE> » <TRANSLATE RESULT>) 


eo 
ee 
1 


<TRANSLATE SOURCE> ::=_— <ADDRESS GENERATOR> 
<TRANSLATE SOURCE ITEM | 
SIZE> i= 2 <EXPRESSION> 
<TRANSLATE TABLE> ::= <EXPRESSION> 
<TRANSLATE TABLE ITEM 
SIZE> ::= “<EXPRESSION> 
<TRANSLATE RESULT> ::= <ADDRESS GENERATOR> 


<TRANSLATE SOURCE> is assumed to consist of items of size 
<TRANSLATE SOURCE ITEM SIZE>. Each of the items in <TRANSLATE 
TABLE> and <TRANSLATE RESULT> are assumed to be of size 
<TRANSLATE TABLE ITEM SIZE>. Each of the source items is used to 
subscript into the table to obtain an item which is placed into 
the result fieid in the position corresponding to the position of 
the original item obtained from source. This process continues 
until the source is exhausted» the result is full» or an error 
OCCUr Se 


) 


If either source or result is not a multiple of its respective 
item size» then the transtation of the Last item is undefined. 


Both source and table item sizes must be less than or equal to 
24 The table must be ltarge enough to accomodate all items in 
source e If either of these is violated» arunstime error will 
occur e 


mae AARAR Cor laden a 
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APPENDIX I? RESERVED AND SPECTAL WORDS 

The following is a List of reserved words in SOL» complete as of 
May» 1978. These words may only be used as reserved words. 
ACCEPT AND AS 

BASE BIT BUMP 8Y 

CASE CAT CHANGE CHARACTER CLEAR CLOSE 

DECLARE ODECREMENT DEFINE DOISPLAY O0 DUMMY OYNAMIC 

ELSE END EQL ENTER_COROUTINE EXIT _COROUTINE EXGR 

FILE FILLER FINI FIXED FORMAL FORMAL_VALUE FORWARD FROM 
GEQ@ GTR 

IF INTRINSIC 

LE@ LOCK LSS 

MOD 

NEQ NOT 

QF ON OR OPEN 


PAGED PROCEDURE 


Saptari aba at Acca ahaa SOSGART Dc a Sa aN tnd i at 


—— sass pase Ee era oS SO SONOS DOTNET fevweectee cbse tet eect ii EE an ee 
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READ READ_FILE_HEADER RECORD REDUCE REFER REFERENCE REMAPS — 


RETURN RETURN_AND_ENABLE_INTERRUPTS 


“SEARCH_DIRECTORY SEEK SEGMENT SEGMENT_PAGE SKIP SPACE STOP 


SUBBIT SUBSTR SWITCH FILE 
THEN TO 


UNDO USE 


VARYING 


WRITE WRITE_FILE_HEADER 


ZIP 


BURROUGHS CORPO 
COMPUTER SYSTEM 


RATION 
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The following is a list of special words in SDL» complete as_ of 
Decembder » 1975. Each speci 
however it may be used as an identifiere In that case» it Loses 
its special significance in SDL. 


ACCESS_FILE_INFORMATION 


BASE_REGISTER 


CHANGE _STACK_SIZES 


COMPILE_CARD 


CONTROL_STACK_TOP 


DATA_ADDRESS 


DELIMITED_TO 
DISPLAY_BASE 


ENASLE_INTERRUP 


EXECUTE 


BINARY 


~INFQ COMMUNICAT 
CONSOLE_SWITCHES CONV CONVERT 


DATE DC_LINITIATE 


KEN DESCRIPTOR 
DMS_CALL DUMP 


TS ERROR_COMMUNTI 


al word has a particular meaning» 


CHARACTER_FILL CHAR_TABLE COMMUNICATE 


ELWITH_GISMQ CONTROL_STACK_BITS 


~10 OEBLANK OECIMAL 


DISABLE_INTERRUPTS OISPATCH 
DUMP_FOR_ANALYSIS DYNAHIC_MEMORY_BASE 


CATE EVALUATION_STACK_TOP 


FETCH FETCH _COMMUNICATE_MSG_PTR FETCH_AND_SAVE 


FINDLOUPLICA 


GROW 


HALT HARDWARE_ 


TE_CHARACTERS FREEZE_ PROGRAM 


MONITOR HASH_CODE HASH_UNPACK 


INITIALIZE_VECTOR INTERROGATE_INTERRUPT_STATUS 


LENGTH LIMIT_ 


MAKE DESCRIPTOR 


REGISTER LOCATION 


MAKE _READ_ONLY 


M_MEM_SIZE MONITOR_SET MONI 


NAME_OF_DAY NAME_STACK_TOP 


NULL 
OVERLAY 
PARITY_ADDRESS 
READ_CASSETTE 


REVERSE_STORE 


PREVIQUS_ITEM 


MAKE_READ_WRITE MESSAGE_COUNT 


TORLRESET MONITOR_CHANGE MONITOR_SET 


NOL_OP NEXT_LITEM NEXT_TOKEN NOTRACE 


PROGRAM_SWITCHES 


READ_FPB READ_OVERLAY REINSTATE RESTORE 
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SAVE SAVE_STATE  SEARCH_LINKED_LIST SEARCH _SERIAL_LIST S_MEN SIZE 


SEARCH_SDL_STACKS SORT SORT_DELETE SORT_FILE_FIXUP SORT_MERGE 
SORT_RETURN SORT_SEARCH ‘SORT_STEP_DOWN SORT_SWAP SORT_UNBLOCK 
SWAP SPO_INPUT_PRESENT - 
THAW_PROGRAM  THREAD_VECTOR TIME TRACE TRANSLATE 
VALUE_DESCRIPTOR 
WAIT WRITE_FP8  WRITE_OVERLAY 


X_ADD X_SUB X_MUL X_DIV  ¥X_MOD 


le-l 
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APPENDIX JI: SOL CONTROL CARD OPTIONS 


There are a onumber of options available to allow control of. 


various compiler features during compilation. These options must 
obey the syntax given below. 


The “$" or "&" must appear in column one of the control card. If 
"S$" is used» the controli card will not be included in the new 
source file generated by the compiler; if "&" is used» the 
control card wilt be tncluded in the new source file. 


The BNF for these cogpiler options is as follows: 
<CONTROL CARD> 3s: $ <CONTROL STATEMENT> 


<CONTROL OPTION LIST> 
i <VOID OPTION> 


<CONTROL STATEMENT> 3:3 


i 


<CONTROL OPTION LIST> ss= <CONTROL OPTION> 
1 <CONTROL OPTION> 
<CONTROL OPTION LIST> 


<CONTROL OPTION> :3:= <CONTROL OPTION WORD> 
) NG <CONTROL OPTION WORD> 
<DEBUG OPTION> 
<SEQUENCE OPTION> 
<PAGE OPTION> 
<MERGE OPTION> 
<STACK SIZE LIST> 
<INTERPRETER OPTION> 
<INTRINSIC OPTION> 
<RECOMPILE OPTION> 
<LIBRARY PACK OPTIQN> 


<CONTROL OPTION WORD> ::= LIST ! LISTALL ! SINGLE 
: | SGL 1 DOUBLE ! CODE 

CONTROL 1! NEW 1 SUPPRESS 

XMAP | CHECK | PROFILE 1! PPROFILE 
DETAIL | AMPERSAND 1! NO_DUPLICATES 

NO_SOURCE | MONITOR 
XREF | XREF_LONLY 1! EXPAND_DEFINES 
SIZE 1! FORMAL_CHECK 

TIME PROCEDURES 1! TIME_BLOCKS 
PASS_END ! ERROR_FILE 
FREEZE 1! NEST_PROCEDURE TIMES 
ADVISORY ! LOCKI 
USEDOTS ! CONVERTDOTS 
TIME_MCP 


mm om we ee eee ee ll le le ee oot 


<DEBUG OPTIQN> :3= DEBUG <NUMBER> 


Sohal! Sak Ubu ea abs batt te Saehal aac 
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<NUMBER> 225 -. - €UNSTGNED INTEGER» 8 OR LESS DIGITS> 
<SEQUENCE OPTION> ::= NO SEQ 


1 SEQ <SEQUENCE PARAMETERS> 
<SEQUENCE PARAMETERS> ::= <3ASE> 
| 1 <INCREMENT> 
| <BASE> <INCREMENT> 


<€BASE> :3= <NUMBER> 


<INCREMENT>S33= | | + <NUMBER> 

<PAGE OPTION> ::= oe PAGE 

<MERGE OPTICN> s:= MERGE 

<STACK SIZE LIST> :s= <STACK SIZE DESIGNATOR> 


1 <STACK SIZE DESTGNATOR> 
<STACK SIZE LIST> 


<STACK SIZE | | 
DESIGNATOR> 3: <STACK DESIGNATOR> <STACK SIZE> 


<STACK DESIGNATOR> t2=_ VSSIZE I NSSIZE 1 ESSIZE _ 
| CSSIZE 1! PPSSIZE 1 DYNANICSIZE -_ 
<STACK SIZE> 23= <NUMBER> 


<VOID OPTION> se VOID <TERMINATING SEQUENCE FIELD> 


<TERMINATING SEQUENCE 
FIELD> 3s= <EMPTY> 
1 <EXACTLY 8 CHARACTERS> | 


<INTERPRETER OPTIOGN> i: INTERPRETER <INTERPRETER NAME> 
<INTERPRETER NAME> 323= <EXTERNAL FILE NAME> 
<INTRINSIC OPTION> :3= INTRINSIC 


<INTRINSIC FAMILY NAME> 

<INTRINSIC FAMILY | 

NAME> 33= <IDENTIFIER> 1! <CHARACTER STRING> 
1 <FILE FAMILY NAME> 


<FILE FAMILY NAME> 33= <MULTIFILE ID> 
1 <PACK_ID/MULTIFILE ID> 


<PACK_ID> :s= <CHAR STRING> 


<MFID> s:= | | <CHAR STRING> 


> Ae a ioe ee SO ei — bee Co oes ae sect’ a eee ee eee ee eee Pe ne ee ee ee ae ee ee ee ee en ne ee en ee ee ee ee Spe penny eu 4 utp ok 
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<LIBRARY PACK OPTIGN> ::= LIBRARY_PACK <PACK_ID> 
<RECOMPILE QOPTION>s:s= CREATE_MASTER 
! RECOMPILE 
SEMANTICS IN ALPHABETICAL QROER: 
Note: Default is OFF except where specified as GNe 
ADVISORY Prints advisory messages on the Listing. 
Default is ON. 
AMPERSAND Prints those ampersand cards which are examined. 
Default is ON. 
CHECK The merged source will be checked for sequence 
errorse Default is ON. Sequence checking is 


done after any resequencing due to a $&SEQ is 
complete. 


CODE Prints generated code. 

CONTROL Prints control cards. 

CONVERTDOTS Converts dots ,"."* to underscores "_"* when used 
as s@parators in identifiers. The conversion 
will be reflected in att compiler output 


including the listing and NEWSOURCE files. 
RECORD constructs may not be used with dot 
Separators in identifiers. 


CREATE_MASTER see Appendix VII_ 

CSSIZE Control Stack S1Z@-0 

DEBUG Compiler debug use only. 

DETAIL : Prints expansion of define invocations. 

DOUBLE | Double spaces listing when printing. 

DYNAMICSIZE Amount of memory used for paged array pages. 
ERROR_FILE A separate error file will be produced 


containing only errors and warnings and the 
source images to which they apply. 
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—ESSIZE 


EXPAND _DEF INES 


FREEZE 


FORMAL CHECK 


INTERPRETER 


INTRINSIC 
LIBRARY_PACK 
LIST 


LISTALL 
LOCKI 
MERGE 


MONITOR 
NEST_PROCE- 

DURE_TIMES 
NEW 


NO 


NO_ DUPLICATES 


for uniquenesse 


COMPANY CONFIDENTIAL 


Evaluation Stack size. 


Causes define expansions to be crossreferenced 


Cused in conjunction with XREF or XREF_ONLY). 


The FREEZE bit wilt be set in the program's FBP» 


preventing the program from being roited out 
during executione —— ? 
actual parameters and values returned 
from typed procedures will be checked 
respectively against their corresponding formal 
parameters and procedure formal tyoes. 


Procedure 


Changes the interpreter name. 


Changes the family names of intrinsics to be 


usede 

Assumes all library files are on the pack 
specified. 

Lists the source input which was compited. NO 


LIST will also turn off LISTALL.~ Default is ON. 
Lists all SOL source input (whether or not 
conditionatly excluded). LISTALL turns on Liste 
but NO LISTALL will not turn of f List. 


Intermediate 
disk directory as they are created. {See 
Appendix I¥: RUNNING THE COMPILER). 


The primary source file is on tape or disk which 
wiil have the cards» from the card reader» 
merged with ite 


See Appendix VIII: SDL MONITOR FACILITY 


See Appendix IIle 
Creates a new source file. 


NO preceding an option Cwhich allows it) will 
turn that option off. 7 


Newly declared identifier will not be checked 
The programmer must guérantee 
that there are no duplicates before using this 
option.e It will reduce compile time for large 
programs only. | 
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work files wilt be locked into the. 
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yo ‘NO_SOQURCE Program source images will not be saved» thereby 

| shortening the compiler work file. No source 
Listing will be possible when this oaption is 

specified. This should be used with tong 


NSSIZE 
PAGE 


PASS_END 


PPSSIZE 
RECOMPILE 


RECOMPILE_TIMES 


SEQ 


SINGLE CSGL) 


SIZE 


QUPPRESS 


TIME_ BLOCKS 
TIME_PROCEDURES 
TIME_MCP 


USECOTS 


VOID 


programs only. 


Name Stack size. 
Page eject if Listing. 


The total elapsed time and the number of errors 
witli be printed at the end of each passe 


Program Pointer Stack sizee 
See Appendix VII. 


The start and stop times of each of the phases 
of the “bind” pass of a CREATE_MASTER or 
RECOMPILE will be printed on the Listing. 


Resequences new source file using base and 
increment specified. Oefault increment 1s 1000, 
default base is the sequence nuaber of the $SEQ 
card. If the $SEQ card has no seq number the 
default base is 1000. 


Single spaces listing when printinge Default is 
ON. | 


Prints segment sizes by name at end of compile. 


Suppresses warning messageSse To suppress 
sequence error messages» turn off CHECK. 


See Appendix III. 


Allows the use of dots» "."» gas separators in 
identifiers. Otherwise» underscores» “"*_" wiil 
be required (See CONVERTDOTS). 


The VOID option will void records in the primary 
file which have sequence fields less than or 
equal to the <TERMINATING SEQUENCE FIELD>. If 
the field is omitted» only the record with the 
sequence number corresponding to the VOID card 
sequence number wilt be deteted. The VOID 


option will not delete images ina secondary 


€card) source fite. 


sae 
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. VSSiZE Value Stack $1Ze. 


WORKING_SET_BYTES 


Specifies the working 
program as used by 
effect on programs to. 


Creates an extended 

compilation analysis. 
passed to SDL/XMAP is 
MM is the month» OD i 
is the year» 
the compile. 


XREF Produces a 

programe The 
SOL/XREF is 
months» OD is the day 
year» and <TIME> 1 


compile. 


nane 


Produces a 
terminates the 
file passed 
"XREFMMDDYY/<TIME>*>» 

is the day of the mont 
<TIME> is the time of 


XREF _ONLY 
=e comp 


and <TIME> is the time of 


cross“reference 


"XREFMMODYY/<TIME>"*» where MM is 


crosse*reference 


to 


7 12°76 
COMPANY CONFIDENTIAL 
Bi000 SDL CBNF Version) 
— — - PeSe 2212 5405 CG) 


set size of the object 


MCPI. This option has no 
be run under MCPII. 

code map file for post 
The name of the file 
"XMAPMMDDYY/<TIME>*"» where 
§ the day of the monthe YY 
day of 


the 

to 
the 
the 
the 


Listing of 


of the fite passed 


of the months YY 1s 
$s the time of day of 


fisting and then 
lation. The name of the 
SDL/XREF_ONLY is 
where MM 1s the monthe 
hy» YY is the year» 
day of the compile. 


fobs 
F 


ee Se ene 
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APPENOIX Til: PROGRAMMING OPTIMIZATION 


The following control card options can be useful to _ the 
programmer who wishes to determine the most time consuming 
part(s) of his program. The purpose of these control options is 


to point out the parts of the program which are the most time 
consuming and/or heavily used. 


PROFILE 


PPROFILE Establishes a dynamic arrays each element of 
which is a counter for one procedures The index 
nugber for each procedure appears in the listing 
following the <PROCEDURE IDENTIFIER>. fhe value 
of the counter will reflect the number of 
entrances to the procedure in question. Those 
with the highest counters should be investigated 
with the PROFILE option. 


PROFILE Establishes a dynamic arrays each element. of 
which is a counter for one branching operation 
C<DO GROUP>» <IF STATEMENT>>» or <CASE 
STATEMENT>). The index into the array wilt 
appear in the listing following the statement in 
question. Those branches with the highest 
counter values are the branches most heavily 
used. 


HAROWARE MONITOR 


<HARDWARE MCNITOR 
DESIGNATOR> 2:2= HARDWARE_MONITOR (<EXPRESSION>) 


The 81700 is equipped with a hardware monitor which may be 
manually wired to suit the needs of the programmer. The device 
can be useful as a timer or a counter to monitor program 
efficiency. 


The lowworder 8 bits of the <EXPRESSION> is used as the lLowrorder 
8 bits of the Mwminstruction gonitor. For wiring instructions of 
the hardware device see Computer Performance Monitor II: £=Systeas 
Summary Manual. , | 
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PROGRAM Saal 


A higheresolution timer and the means to access it are available 


on select Bi720-series systems. This timer is accessed directly 


by the interpreters» pypassai the MCP and its inherent effects on 


to be timed. 


ti mi we accur aC ye 


Timing of procedures and/or blocks is initiated by the use of 
control options: $TIME_ PROCEDURES and STIME_BLOCKS. The 
appearance of either of these options turns. it ons the 
appearance of the option preceded by NO turns it off. § “The 
setting of the option at the time of parsing ot the procedure 


head or of the block head (D0 and OG FOREVER» in the case of 00 


groups) determines whether or not the attendant body of code is 


A 


For each item to be timed» a timer cell number is assigned. Upon 
entrance to the body of code» the timer value is subtracted from 
the proper cell and upon exit» the timer vaiue is added to the 


cell. Procedures are not timed around cails of other procedures» 
so that procedure times reflect onty the elapsed time spent 


within that procedure. Biock timing works the same way» ToG@es 


times of nested blocks are added to those of enclosing blocks» 
but times of procedures which are cailed are not included in the 
times of the calling procedure or blocks. The times of catled 


procedures WILL be added to those of the cailer by specifying the 
option NEST_PROCEDURE_TIMES. 


At the time of execution» an intrinsic will be invoked which wiilt 
print the timing celis ordered by value. The contents of these 
cells are the number of microseconds spent in the timed bodies of 
code. If the job terminates abnormailys then DUMP/ANALYZER will 
print the contents of the timing cells. | | | 


It is intended that the timing functions will be used in the 
foitlowing manner: Firsts» alt the procedures in a program wiil be 
timed. Upon isotation of the “hot™ procedures» block timings 
will be requested for those blocks contained in these procedures. 
If both btock and procedure timings are requested for large 
programs» an inordinate amount of memory wilt be atitocated for 
the timing cells» which are 48 bits in length. 


This scheme is usable by the MCP. The S=option £TIME_MCP must be 


included at compile time. The timing cells are printed with a 


SPO message- 
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APPENDIX IV: 


RUNNING THE COMPILER 


SYSTEM CONTROL CAROS FOR 31790 


There are two basic deck setup formatse They are: 


Ae The primary source file is on cards. 


| | <SYSTEM COMPILE CARD> 
| te <FILE EQUATE CARD FOR FILE NEWSOURCE> 
| DATA CARDS 
*« $ NEW 
' <€SCL PROGRAM> 
FINI 
END 


If the primary source file is to be saved on tape or 


disk» these cards must be inctuded. 


Be The primary source file is on disk. 


<SYSTEM COMPILE CARD> 


<FILE EQUATE CARD FOR FILE SQURCE> 
ie <FILE EQUATE CARO FOR FILE NEWSOURCE> 
DATA CARDS 
$ MERGE 


*« § NEW 


<PATCHES TO SDL PROGRAM> 


END 


Notes 


If the merged file is to be saved» these cards must 
be included. | 


Refer to the 81700 MCP Software Operational Guide for 
the exact format of the compile and file equate 
cards. 


20L EILE NAMES 


Card input file (80 or 90 byte records) 


CARDS 

SOURCE Primary source fiie if $ MERGE is used (€89 
ot or 90 byte records) 

NEWSOURCE ‘Updated source file if 8 NEW is used (90 


byte records) — 


pent 
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oe, LLNE,. 7 Line printer file | 
. ERROR_LINE Separate error file (produced when 


SERROR_FILE ts used) 


 XREF_LINE Lists file for XREF. Allows file equation 
in the compiler. a 7 


XMAP_LINE Lists file for XMAP. Allows file equation 
in the compiler 


20 WORKETLE NAMES 


| PFILE Intermediate file produced by the pre-pass. 

TFILE Intermediate file produced by the first 
PpasSe 

IMAGE_FILE Source image file produced by the pre~pass. 


SDL GENERAIED EILE NAMES 


In addition to the code file which is always produced by the 
compiler Cunless SYNTAX is specified)» three more files are 
optionatly produced. These files are created if certain dollar 
options are specified. 


The name of these "extra" files is the same as the code file 
na me » except that 2 characters are appended to the front of the 
filewid. These characters are "4_" for the monitor file» "PF ™ 
for the profile file» and "“T_" for the timing file. For example» 
monitoring the code file "A/8" creates an additional file catled 
"A/M_B™. | 


2PQ INPUT 10 COMPILER 


The compiler will notice if the operator gives it SPO input 

during any of the first three passes (SOLP» SDL1i» SDL2).-  §PO 
input will be ignored during SDL3» the partial recompilation 
binder. The operator may give any of the foilowing commands in 
the AX message: 


: 14-3 
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STATUS The compiler wilt display the current pass 


executings sequence number being compiled» and 
errors detected so far. 


LIST The compiler will begin tisting in whatever 
pass is currently executing. | a 


NO LIST Stops Listing in whatever pass is currently 
executing.» Oe eS 


PASS_END Sets aption to display a message as each pass 
compietes. 


NO PASS_END resets PASS_END option. 


LOCKI The cogpiier wilt Lock intermediate files as 


> they @re created and will tock any that have 
aiready been created but not released. The 


intermediate files may then be used to restart 
the compiler if necessary (Csee below) or  0»be 
analyzed with SDL/IA (Cnot released outside the 
company). 


NGO LOCKI Intermediate files not atready locked will not 
be Lockede — 


20 RESTART 


If intermediate  fites have been saved (see LOCKI above) and a 


compile is terminated in SDL1is SDL2s5 or S$DL3 due to machine 
failures» it may be restarted in SDLi or SDL2 to avoid repeating 
the entire compile. Program switch zero is normally set to zero 
indicating a full compile. It may be set on the comptile cards 
however» to one Cindicating an SDL1 restart) or two Cindicating 
an SOL2 restart). SOL3 cannot be restarted» instead the 
operator must restart SOL2. | : 


The compiter will expect the following files when restarted: 


SDL1 PFILE 

IMAGE.FILE 

MASTER/INF Cif CREATE_MASTER compile) 
SDL 2 [FILE 

IMAGE.FILE 


MASTER/SINF Cif CREATE_MASTER compile? = 


e “ 2 i 5 Sat z sa Ss . dee Be ee NE ge soe ate a seh dy te tN Te ea a ee a a tie a tae whe a tase ¢ farame Bn ye aoe a 
wo yest stash tg ipa ttt ft ita encanta i a na ue ai abit ini gta ig iti bins in use ett sensi ae dah oe Sasa tin ihe AAC Se Si an hei nai neh ictal iS SAS oA NS SH i Re aa ay 
Pitas Biaiebisduteatlest lai a iss iy bts ash EN a ie USS is ta, i Sia a ii aniline ts ia ac cease te eat as area daa, bain daandagih ioe tie aaa eae 


Se sds nce as baSeet tale neal te Slat 
sane nab ED ore TS TTC 


Saal area oy eth as Aaa se doa aban Aone pho sate pet pen eter 
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Files will have been saved under these names if (a) 


entered a tLOCKI message or (5b) SLOCKI appeared 


control cards. 


nent ei ABN AIEEE agp SEO iE Se aha ERS A a ag Sr St 


(BNF 
2212 
the 
on a 


Version) 
9405 (&) 


operator 


compiler 
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i 


Stet Depa teh ke gg take help pee FT oe Pe ce ae enn ewe mere ee ee mee are es mre a eere yc cer tety ounpttehy ection eda esas jauraphomaasgennd - 
ie abath gS SECS gan AIS hoe Sy Dig 2 eae lie dae ada i i Se Re eee ee ne ee ee anne 3 
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APPENDIX V2 CONDITIONAL COMPILATION - 
The conditional compilation facility attlows the user to 


selectively compile btocks of code without the necessity of 
physicaily adding or removing records. . 


<CONDITIOQNAL INCLUSIGN> records are always written to a new file 
Cif one 1s created)» whether or not they are compiled. If 
conditional compilation records are to be printed with the source 
listings then LISTALL must appear on the $-card.e If not 
specified» only those canditional compilation records which were 
compited are printede 


The BNF for the conditional compilation is as follows? 


<CONDITIONAL INCLUSION> 3ss= <SET STATEMENT> 
“RESET STATEMENT> 
<PAGE STATEMENT> 
<LIBRARY STATEMENT> 
<IF BLOCK> 


<SET STATEMENT> s2= SET <SET SYMBOL LIST> 


<SET SYMBOL LIST> s:= <SET SYMBOL> 
i <SET SYMBOL LIST> 
“SET SYMBOL> 


<SET SYMBOL> s3s= | <BOULEAN SYMBOL> 
<BOOLEAN SYMBOL> ‘%s= —  SLETTER> 
! <BOOLEAN SYMBOL> <LETTER> 
{| <BOOLEAN SYMBOL> <DIGIT> 
<RESET STATEMENT> ss= RESET <RESET SYMBOL LIST> 
<RESET SYMBOL LIST> ss= <RESET SYMBOL> 


i <RESET SYMBOL LIST> . 
<RESET SYMBOL> 


<RESET SYMBCL> :s= <BOOLEAN SYMBOL> 

<PAGE STATEMENT> 33s= PAGE 

<LISRARY STATEMENT> 33= _ LISRARY <FILE NAME> 
<FILE NAME>: s= <MULTICFILE IDENTIFIER> 


| <MULTI“FILE IDENTIFIER> / 
<FILE [DENTIFIER> 

| <PACK IDENTIFIER> / 
<MULTI@“FILE ITOENTIFIER> / 
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| “<PACK IDENTIFIER> / 
<MULTI“FILE IDENTIFIER> / 
<FILE IDENTIFIER> 


 <PACK IDENT IF LER> <I DENTIF IER> 


“MUL TT “FILE IDENTIFIER>:: = <IDENTIFIER> 
<FILE IDENTIFIER>? #= <IDENTIFIER> 
‘<1F BLock> ::= EF STATEMENT> 


- <INCLUSION BLOCK> 
-<END STATEMENT> 

| <IF STATEMENT> 
<TRUE PART> 
<INCLUSION BLOCK> 
<END STATEMENT> 


<IF STATEMENT> 2:5 | IF <BOOLEAN EXPRESSION> 
<BOOLEAN FACTOR> 


1 <8Q00LEAN EXPRESSION> OR 
<BOGLEAN FACTOR> 


<BOOLEAN EXPRESSION> : 


- <BOOLEAN FACTOR> ::= -- <BOOLEAN SECONDARY> 


1 <BOGLEAN FACTOR> AND 
<BOOLEAN SECONDARY> 


- <BOOLEAN SECONDARY> ::= <BOOLEAN PRIMARY> 


| NOT <BOOLEAN PRIMARY> 


<BOOLEAN PRIMARY> :3= <SET SYMBOL> 
1 <RESET SYMBOL> 


<INCLUSION SLOCK> ::= <SDL SOURCE IMAGE 8LOCK> 
| <IF BLOCK> | 


<SOL SOURCE © 


IMAGE BLOCK> :s= <EMPTY> 
| <1 OR MORE SDL SOURCE IMAGES> 
<END STATEMENT> ::= END 
<TRUE PART> :2= <INCLUSION BLOCK> <ELSE STATEMENT> 


<ELSE STATEMENT> s3= ELSE. 


Alt records containing conditional compilation statements must 


have an ampersand (&) in column 1 Cexcept the <SDL SOURCE IMAGE 


BLOCK>). In additions a complete conditional inclusion statement 


must be contained on one &°CARD. $#Columns 2-72 are free~fietd» 
and columns 73-80 may contain sequence numbers. 
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Note that <BOOLEAN EXPRESSION>s may contain the Logical operators 
Cfrom Lowest precedence to highest): QR» AND» and NOT. 


The <PAGE STATEMENT> will cause a page eject if the source file 
is being Listed. The <LIBRARY STATEMENT> will cause the. images 
from the file specified DY <FILE aad to be tncluded ine the 
source program. . i Keres Se es, 


As an examples consider the following SOL source statements 
if{lustrating nested conditionat compilation statements and <SDL 
SOURCE IMAGE BLOCK>s. 


COL 1 FREE“FIELDs COLS 2<72 SEQ: 73-80 
& SET ABC 0100 

& RESET DE 0200 
DECLARE (A»B8) FIXEDs 0300 

&8 IF A AND E | | 0400 

A s= 85 0500 

& ELSE : | | 0600 ~ 

A s= X CAT Y+#Z3 Z WHOLE SOURCE IMAGE IS INCLUDED 0700 

8 IF C . 0800 

B s= A> | 0900 

& END | 1000-0... 
& END 1100 

& IF 8 OR OD | | 1200 
BUMP 83 1300 . 
& ELSE 1400 
BUMP A> - 1500 

& END ; 1600 


The compilation of the following statements would result. 


DECLARE CA»B) FIXED? 0300 
A s= X CAT Y+Z2> % WHOLE SOURCE IMAGE IS INCLUDED 0700 
B s= As 0900 
BUMP 8B» 1300 


Note that every IF must be paired with either an ELSE or an END. 
Every ELSE must have an END associated with ite 
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This section contains coding suggestions and examples which 


- vresutt in decreased source code and/or object code. 


DECLARATIONS: 


ee As many nonwstructured declarations as possible Cup to 
a maximum of 32) should be declared in one <dectare 
STATEMENT>. Examples | 


DECLARE A FIXED» (B»C) BITC24)> 
generates more efficient code than: 


DECLARE A FIXED3 
DECLARE (BrC) BIT(24)3 


2. A <DEFINE ACTUAL PARAMETER> (See DEFINE INVOCATION) may 
be a series of SDL statements. For example: 


DEFINE COMPARECTS»S) AS#~ 
sd. TOKEN LSYMBOL=TS 
THEN 095 
$3 : 
UNDO THIS_ONE? 
ENDS 


a ee 


ee tts 
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may be invoked ass; 


0G THIS_GNE FOREVER; oe ae 
COMPARE C"SINGLE™» SINGLE_SPACE s= TRUE)s> ~  - 
COMPARE C"MERGE™,» IF LASTUSED + QO 
THEN UNDO THIS_ONE> 
LASTUSED s= 23 
OPEN SOURCE INPUT> Ye. Le 
READ SGURCE CTAPEWORK))>; Sete ee ee 
COMPARE (acaPponee)? 
END THIS_ONE3 
PROCEDURES: 
le Procedures from highest efficiency to lowest are: 
PARAMETERS LOCAL DATA 
NO NO 
NO YES 
YES | ND 
YES Yes 
STATEMENTS: 
1. When the value returned by a typed procedure is to be 


ignored: 

IF PCX“Y) THEN>s 
1s more efficient than: 

TEMP = PCX*Y)> 

Ze Use “Z" at the beginning of a comment rather than 

“Jeeeet®/" as delimiters.» The "Z" stops the scanning of 
that record. If the “"*/*..e*/"* form 183 used» scanning 
Must continue to detect the ending terminator. Thus 
compile time 1s increased. 


3 e The expression: 


SUBSTR( 012345678 SABCDEF "> Nol) 


ace bp te i ek ode wire Mig OMe it Sued foe Maree S aT Pe ee et i sigh mei a aca wart onrephsecotemrerciecnepnri: arate wenee  rrevnin bin eragan ae nc? hd 
Spit ceases acres acne i eS bith tante sna eetit baiechtie genie ieee aaa ot uel ge AE sad mation ta ge elit ae tevtcesmatiecakamnsinaies satan 
eho : 2b an elt PE ay eee we dy remands Aaa SEPAE ee Dn ee vance NTT a Lear aoe a ose ce eee eat Res a ANCE Rallies iP iti ANN AEM ashi bari wine Sei ee 


pli eh neta 
ce a nerd erent cdo edie 
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_senerates ‘much less ede than 


ne a pe “e “iV : es 
ee yet} CASE N OF C7O%s"1%> "2% o00"E*e a ae 
| 24 my oi ie: fact that a boolean expression evaluates to a one 
noe “Sor, zero can often be used to advantage. For example,» 
the Statement: a 
_ X s= A>O> 


is more efficient than 
X := IF A>0 THEN 1 ELSE 03 
and the results are the same 


3» BUMP A ?= Bs stores B into A and bumps Bs and BUMP 
| A :3s= 8% stores B into A and bumps A. 


6. REVERSE_STORE CIF <CONDITION> THEN A ELSE 2B» C3) 
selectively stores C into A or Be. 


‘Ts Consider the fotlowing: 


In a compiler» for example» assume that all calis on 
the error routine follow a THEN/ELSE or are in a <CASE 


STATEMENT>. Example? 7 A, 
re ty 
de IF <CONDITION> THEN ERRORCEON05)> | 
Ze CASE N> ; oS . 
a 3B 
o>? 
eo? 
ERRORCE137)>; 


oF 
END CASE> 


It 1s sometimes destrable to put these calls into -a 


separate segments especially when £005 and £137 
represent character strings Ciceee» in-line ERROR 


For example: 


DEFINE ERRORCN) AS #SEGMENT CERROR_CALLS D> 
ERROR_ ROUTINE CN) 8s 


Because of the temporary nature of segmenting 
subordinate executable statements» only the calls witl 
be In separate segments. 
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8. When two or more elements of a <CASE STATEMENT> or an 


Pe 


<IF STATEMENT> have identical code» more efficient code 
1s generated if the -.-code is put into a separate 
procedure (with no parameters or data). In both cases» 
execution time wilt be identical» . but object code 
Savings could be substantial. = ; 


Use conditional compilation statements to remove 
debugging codes rather than physically removing the 
code. See Appendix VII.. | — 
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| The. $8i. ‘Cound ter ‘includes a dacitity. Giro it is possible to 
save’ ‘information from —one- compilation which will enable the 
compiler. to Fags aoastmca ta one Cor more) Lexic Level Zero 


procedures. subsequent runs» | thus reducing computer time for 


the recompilations. 


As’ SAVING THE MASTER COMPILER INFORMATION 


The Per “eaaniie. information. as saved by, ‘the compifer in the 


ae ence five files: 


Internat Name - Default External Name 
NEWSOURCE  WNEW" "SOURCE 
NEW_LINFO_FILE NEWT" INE™ 
NEW LUSECONDARY_FILE — NEWT S/S" SEC* 
NEW _BLOCK_AODRESS_FILE  . "NEW"/*"BAF* 
 NEWLFPB_LFILE — SNEW"/°F PB" 


Note that the file NEWSQURCE is identical to» and created in the 


Same Way. aS» the file created with the SNEW carc.e Alt five files 
widl be created with the compiler t-opntion (Note: Brackets here 
indicate apeRCr oN specifications): 


SCREATE _MASTER CL<PACK_ 1D>/J¢MULTIFILE_ [D>] 


If ae nn will “aa” tae Senet of the default 
multifile id» © “NEW, for all the files. If also specified» 


<PACK_ID> will direct att the files to the named user disk pack 
or cartridge instead of system disk. <PACK_ID> and <MULTIFILE_ 
a must be. pe ae character literals. 


Notes? 


1. The CREATE_MASTER option must be on the first card in 
the compile deck (Cfite “CARDS")» =and that card may 
contain no other dollar options Cexcept RECOMPILE=-See 
the following section). 


1 i 1 
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Ze The new source file must be “eanibataly seaGenceds sO 


$SEQ should be used to assure this if necessary. 
This includes ail &= CARDS» as they will. be- “inetuded © an 
the new source files — " 
3. $NEW option has no effect in conjunction ‘with 
CREATE_MASTER. Oe” pee Ue eee, 


Be PARTIAL RECOMPILATION 


By supplying the information saved during a  CREATE_MASTER 
compiles one may have only those Lexic Level Zero procedures 
recompiled which have actually been patched. The patch deck: 7% 


perfectly ordinary except that no patch cards may change Lextc 


Level Zero codes declarations or orocedure headse.' © 
Partiai recompilation will be invoked with the Scoption (Note: 
Brackets here indicate optional specificatians)2 


SRECONPILE CL<PACK_ [D>/I<MULTIFILE_ 1D1 


The compiler will then expect the following S1xX- nes, as ee 


Internat Name _ Default. External ae. oe 
SOURCE — | "HASTER™/ "SOURCE™ 
MASTER_LINFO_FILE PMASTER™/*INF* 
MASTER_SECONDARY_FILE "MASTER®/*SEC* 
MASTER_BLOCK_ADDRESS_FILE  "MASTER"/"BAF™ . 
MASTER_FPB_FILE © “MASTERT/®FPBR) Fe 


MASTER_MPT_FILE WMASTER"/*NPT® © 7220 ites 


If specified in the RECOMPILE option» <MULTIFILE_ID> will be used 
instead of the default id "MASTER". If also specified» the files 
will be expected to be found on user pack or cartridge <PACK-10>. 
<PACK_IO0> and <MULTIFILE_ID> must be quoted character literals. 


Notes: 


Le The RECOMPILE option must be on the first card iin the 
compite deck (Cfile “*CARDS") and that card may contain 
no other dotlar oaptians (Cexcept CREATE_MASTER» see 
previous section). : | 


Se on, 
ay 


SED eee 
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Be Tne Benen. ‘deck may contain. $= CARDS and SSET and RRESET 
 gards followed by patch cards- If &-CARDs are used» 
_ howevers they will onty appty to procedures being 

a, recompiled and may therefore, cause unwanted effects. 


- 3. Neither $SEQ nor “$MERGE may be used with SRECOMPILE. 


es, SIMULTANEOUS RECOMPILE AND “CREATE. _MASTER 


a 
gt 


tae master jPapeabion may 4 saved from a recoupilation run with 
very tittle overhead. Both RECOMPILE and CREATE_MASTER options 
(See above. ) must be on the. first: card of the compite deck. Att 
restrictions noted in A and a: ‘should be observed. | 


sow Me ota 


De GENERAL CONSIDERATIONS aus 
le ALL input and Sue pue files must be’ on disk. (This does 
| not apply to the SOURCE #£file for a straight 
CREATE_MASTER which is read in the normal way as the 
result of a S$MERGE card. It does apply to SQURCE when 
doing: RECOMPILE.) 


oo. Bee File equation cards for recompilation files. will be. og 
ignored unless no <PACK_ ID> or “<MULTIFILE_ ID> has been 
epee ree on the — | 

S@CARO. | | 


36 During recompilation. the only source which can be 
listed is that which is actually deing recompiled. 


4e  $S=CARDs for timing» monitoring» and PROFILE may be 

| added during recompilation. They will onty affect 

those procedures being recompiled» however» even if 
they are at the beginning of the patch deck. 


Se ~COA CREATE_MASTER comptlation reporting syntax errors 
which are strictly tocal to lexic Level zero procedures 
will produce usable master files. These may then be 
used to recompile the offending procedures. Since the 
CREATE_MASTER produced no opdject file» however» some of 

the $-Card information will be missing for the 
recompilation-"specificatlLy stack size cards. These 
must be inciuded in the recompile deck. 


6.  $SXMAP is incompatible with partial recompilation = and 
a may not be specified if CREATE_MASTER or RECOMPILE have 
been invokede 
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ae 


1. CREATE_MASTER compidation 


2COMPILE MYPROG WITH SDL TO LIBRARY 
2?FILE SOURCE NAME MYPROG/OLOSOQURCE TAPES 
2DATA CARDS | 

SCREATE_MASTER. "MYPROG™ 

SMERGE SEQ LIST 
{Patch Cards] 
2END 


S } ‘ ‘ : ‘ Pe ne 
a y . or 7 “ 


‘ae 


2DUMP Td. “ayTAPE/aécauP MY PROG/=3 


Ze Partial recompilation (from user pack). si. wae 


27LOAD TO MYPACK FROM MYTAPE/RECOMP MYPROG/= 


PCOMPILE MYNEWPROG WITH SDL TO LIBRARY | 
2DATA CARDS 

SRECOMPILE "MYPACK"/*MYPROG*™ 

SLIST _ ie 

[Patch Cards] 

7END- a 


Se Simultaneous | operations 
?LOAD FROM AMYTAPE/SRECOMP MYPROG/=3 


2COMPILE MYNEWPROG ALTH SOL Ta LIBRARY 
2DATA CARDS 

SRECOMPILE "MYPROG™ CREATE_MASTER “MYPROG™ 
[Patch Cards] 
2END ~ 


fe ge. Ton 
ae Ae e ae 


2DUMP TO MYNEWTAPE/RECOMP MYNEWPROG/=3_ 


fy 
thet 
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vicasuldens eens and exit can | 7 dynamically monitored via 
‘features «that -are available through the SDL comoiler. Use of the 
| monitoring feature proceeds in two. stepse First» at compilation 


time» the user specifies via. control cards that various 


“procedures are to be "candidates for monitoring” in subsequent 


executions of the programe — hen at execution time the user 


specifies” via a RUN@-TIME MONITOR STATEMENT that some subset of 


‘tthe. candidate procedures are to be monitored. for this run. The 
RUN-TIME: MONITOR STATEMENT can be input, through the SPO» oor from 


some user file» at progran BOJ or during the execution of the 


a ae a ce 


prosrss.. vve execution of built-in functionse — 
iy Me | 
logos aire oy r , : ; ~ : a S : “s 


. 3 i : : oe . . . * a . ; 7 / 


“Assuné a’ ‘apoeedure named PROC is being monitored and that it has 


two parameters X and Y. An invocation of PROC would pracuce: the 
Soke Cg aes information: 


ee eZ % £ eng 


Peete banks ------CkIPROC. Ceccecce-->> dadaadde 
ee eda aut: ‘blanks=eor-Y= the ‘vatue of. Y cat the point of invo- 


~"' cation’ as an SDL Literal 
eras os | ‘blanks*""+9-X= the vatue of x at the point of invo- 
"<<? Cation i a Na old | 


. e 
te an a 


Here ke hGeseribes cia. nesting Level o f the. catt> ccccccee is the 


- séquence ~ number of the invocation point» and dddddddd is the 


Sequence number of the procedure head at PROC. 


; When PROC is exited» the following: line. is emitted: 


aes Seek bianksse=oserks exit. PROC at eeeeceee 


If PROC is a ‘funetions the following ‘Line will also be emitted: 


 ewemekad blank se-~---PROCS the value of PROC specified as an 
» SOL. literal 


Tlie: “output data may be directed to any file. This is done by 
associating the file attribute MONITOR_QUTPUT_FILE with some file 
in the progran. The following restrictions hold. . 


a " so eo 
ES Ser nd ae caer ae Se 
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MONITOR QOUIPUT FILE RESTRICTIONS 


7 yy ra: 
[a ah Sua i rr ec Lx 


1. The feature is not dynamic. CIt cannot be changed: wi.th 
a CHANGE statement). ; th Te aes ea See 


2. The tength of a record Been are ee ee 
more than 71 characters. i an 


3. If several files: are gi ven. the MONITOR _OUTPUT_ FILE 
attributes the ° last file so declared. _ becomes. the 
monitor output file. _ . 5% ind soaeeR 

he If any procedures are dectared to be candidates for 
monitor then a nonitor output file should be dectared. 
If it is not» the coapiter will append a file to the 
program for this purpose. 


Se The file must be sequential with fixed Length facords. 
6» The user should never issue an explicit .open an the 


5 
. 
‘ id wt 


+ 


If the value of a parameter or a procedure is being written and 
current output record is insufficient in length» the literal. will 
be continued to the next record for as many. records as 15 
necessary. Indentation is not peformed on subsequent, Line se. 
Indentation of the first Line ceases within 60 spaces: ‘of.. “the. end 
of the monitor output record. Vaiues of Length zero are noted 
appropriately regardless of type. If a character value contains 
unprintable datas the value will be printed as three asterisks 
followed by a hex representation of the data. Oniy the first. -39. 
characters of any procedure name and the first 10 characters of, 
any formai name are used. | | & deceit eK deus 


ce Ss 


MONITORING: SPECIFYING PROCEDURES 


The user specifies that procedures are candidates for monitoring 
with the dollar card options MONITOR and MONITOR_OFF.-...The- 


qualifier NO is meaningful ‘in. front of both words. The 
discussion of MONITOR_ OFF will be deferred to a Later section. 
However» for the purposes of qualification» the two options:-are 


semantically equivalent. Specifically» if MONITOR is ON when the 
procedure name first appears Ceither in its forward or its head)» 
then the procedure becomes a candidate for monitoring. Note that: 
the MONITOR option relates to procedures and not to procedure | 


invocations. There is no way to specify the concept... that a: j 
procedure is a candidate for monitoring but that some Barcicular 
invocation of that procedure is not to be monitored. Also note 


that it is the state of the option when the FORWARD Cif present) 
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Ther concept of a RUN-TIME MONITORING statement was previously 
introduced. This statement will be read into the orogram at 8OJ 
from any file that the user specifiese This is done by giving . 
the attribute MONITOR_INPUT_FILE to some file declared in the 
| program. The following restrictions hotd: | 


Restrictions: 
Les Ae2e BeBe and 6 under MONITOR OUTPUT FILE RESTRICTIONS. 
2. «If. no 7 file is ioetared with the attributes 


MONITOR_INPUT_ FILE and procedures are declared to be 
candidates for monttoring then the program issues 


oofers . © aecepts. at the beginning of job to obtain the necessary 


ote MUR eee fron ud ie 


3. ~«Lf a file is declared to be the MONITOR_INPUT_FILE then 
the monitoring information aust be the first record(s) 
| ae the files | | pS 


= aul THE wowtt08 3) VIEMENT (nose 


ices eal _——— Sesbenent- consieeeet arunetime monitor 


expression that is terminated by a semicolon. Formal 


specification of the RUN-TIME MONITOR expression syntax is 
deferred to a later section. The following examples will 


Chopefully) illustrate the salient features of the statement. 


“Here please read “ail oe "all orocedures which are 
candidates for monitoring™ | 7 


EXAMPLE MEANING — 
Te ae . @ Monitor Sr SPE eeeeurem 
Be” “SNONES 4 ef wa ‘Monitor no procedures 
3-6 XL | | a tenis att procedures whose name is 


Xle 
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kak 


te te 
# X1 X23 &e 
. fe 
* X1 9X2? ®& 
= ie 
* X1 QR X2>  »& 
i te 
« XL + X25 te 
te de te ae 
de de de ik ie 
- te 
wkt he ie ae 


00000000-019999993..« 


ae oer 
# 90000000701999999 « 
* &. 
* AND NOT SCAN> ie 
ie ie 
x 00000000°01999999 «x 
ie fe 
& # = SCAN ir 
# _ 
& te ie te fe & 


xkikk 


t 00000000-01999999 * 


ad we 
x #« SCAN> ie 
xx &2® 
kkk kik 
* 01426000701579000 

i or 

* 902748300°99999999. 

& or 

& SCAN> 

kee &* 


eek. 
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is ‘oN $ Sage “pan eas 
a ae ae oe hd? 


CALL four stacewonts: are ae ee 


aMénitor “all pegengune: named: as Of” 


or Ras ® ; . be . cy itty : ¢ 
: : pe oe ee 
; bel 4 
* aX a Ss: ¥ 
an ort 
3 OG wa he te 
~ 
4 7h ” 


-2CBoth statements: are equivalent). 


Monitor ail proeures whose naae is 
sec XLe | , 


one 


Monitor ail procedures whose forwards 
or procedure heads oecurred on or be- 
tween the two sequence numbers. 


4 


Same as (6.2) above except that proce 


dures name SCAN are not to be moni- 
tored. : S ow S 
wt ‘ if 2 


donieer atl see adue amed: SCAN. 
the range describedse = 82th o7 


« Monitor all procedures in the two 
ranges specified plus any procedure 
named -SCAN which is aut of these 
rangese | 


en Se ATEN TESCO SARE SRO i et nn pr a ek nna atthe teste nn ee anISnnnnnn Ene nanENRatEnnememem=nemnamntmesiarmeneneam—ent deme peta pth, aie bot snes pene sie, Se SO ue th a a anton malas tio cs pedalboard \Gicendarrocanbare mpi cn) aaah set ke danagin yo ona nt 
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MONITORING! “PROGRAMMATIC contagL 


The: SMONITOR_OFF option and “the three spectals MONITOR_SET>» 
MONITORLRESET» and MONITOR_CHANGE are added to SDL to attow 
program controt of smonitoringe If the SMONITOR_OFF option was 
ever on» the program wilt not plage go a RUN*“TIME MONITOR 
statement at BOJ and will behave if the RUN-TIME MONITOR 
statement “SNONEsS™ had been read. | 7 3 | 


Each: of. the three specials is an unvatued procedure with one 
argument» a RUN-TIME MONITOR. Statement hades as an expression 


which generates a °‘ character’ string»:- CoGes MONITOR_SET 
CPXL oX25 7) 50 MONITOR_RESET causes monitor ing to be discontinued 
for -ail procedures satisfying its argument. If a procedure is 


not currently being monitored but stilt. satisfies MONITOR_RESET'*s 
i ae it wilt continue not. tO be monitored. 


MONI TOR. SET causes Ronitoring to ee commenced on alt procedures 
 sattsfying its argument~ If a procedure is satisfied by 
MONITOR_ SET*s argument and is currently being monitored» it 
continues to be monitored. If a procedure is currently being 
monitored and does not satisfy MONITOR_SET*s argument» it 


continues to be monitored. = ee ae oo Pan 


Seana 


cere eee execution of a “MONITOR. CHANGE ae those Aeeceduree 
referenced by its argument will bde monitored. 


There are no problems of symmetry on calls and returns; LeGee 
one can begin monitoring a procedure that has already been 
entered or discontinue the monitoring of some procedure that has 
currently been entered. The only loss is that the monitor output 
information is “thrown out of sync™ in terms of the nesting level 

for a while. | 


|“ SUNTAX OF & QUNTLIME MONITORING STATEMENT ~ 


<STATEMENT> t= <EXPRESSTON>S 9 © } | 1 
1 S$ALL3 oe . - 2 

— LSNONES | 1) oe, 3 
<EXPRESSION> 22= <TERM> | | | 4 
“1<TERM> <OR> <EXPRESSION> | 5 


<TERM> t2= <FA \CTOR> -.. #3 | er: 


BURROUGHS CORPORATION 
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1<FACTOR> <AND> <TERM> 
<FACTOR> s:= <PRIME> 


i<NOT> <PRIMED 


<PRIME> ss= C<EXPRESSION>) | 


0 eae 
bs 


1<RANGE> 


1<LIST> rude ay 6 


<RANGE> 22= <8 DIGIT SEQ #>-<8 “DIGIT SEQ :> oo Sue 136, 


fe 
ici 
: 


rt. 
<LIST se= <SOL _IDENTIFIER>.- 


seek cabelas ae 


I<SOL_IDENTIFIER><LIST> 


AM re wks 5 ¢ 
poe as 


<OR> 33s= #=OR ee a aes 
i+ 


<AND> :2:= #=#AND 


<NOT> 3:3 INOT 29-0, 


NOTES oe 
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le The <8 OIGIT SEQ #>s referred to in tne 13 must 
be such that the rest is ee than or equal to 


the seconde 


2s The <SDL_IDENTIFIER>s 
names of procedures in 


. ¥ 
x 


arr sete o> os a. rr 


referred to in (14°16) are 


pregrame -.Qnly :the 


first 30 characters are used. 
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CASE STATEMENT 1097 ee 
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FORMAL.CHECK 5=41_ 


FORMAL_CHECK 5"10 5=17° ee 


- 5°35 6.74 >. 6,95. 
FORMAL_ VALUE —6Bt ha g-16 
FORMALCHECK OPTION | 1224. 


- FORWARD DECLARATION - 3540" 


GROW | 10°43 


HARDWARE MONITOR “413- i . 


FREEZE 12-4 
FREEZE_PROGRAM” 10743" 


HALT 10-46 3 ie 


HARDWARE_MONITOR °° 10-44. 
HASH_CODE 8-27 , os 
HEX_SEQUENCE_NUMBER| Bip: 


“1/0 CONTROL STATEMENTS | “ra 


IDENTIFIER 5-37 
IDENTIFIERS 291° | 

IF STATEMENT 10-5 : aie 
INDEXED FIELD REFERENCES 5-6 


INDEXING 85 


INITIALIZE_ VECTOR: | 1044 


: | | IX-4 
BURROUGHS CORPORATION COMPANY. CONFIDENTIAL 
COMPUTER SYSTEMS GROUP 81000 SOL. ¢ANF. Version) 
SANTA BARBARA PLANT | — PaSs 2212. 3405..¢G6) 


INTERPRETER OPTION 12-4 
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